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V.O r.KNFRAL INrORMATION 

l.l PROGRAM ABSTRACT 

THIS IS A SBC- 11/21 • RKSIDF.NT DIAGNOSTIC WHICH CHLCK'j 



or A T^W05 MAGTAPE SUBSIfSTtM UHILt CONNtCTtD TO A 
(U BUS). THE PROGRAM PROVIDES ERROR MESSAGES WHICH 
FUNCTIONS THAT AID IN THE REPAIR OK THE DEVICE. THIS 
EIGHT TEST WHICH ARE EXECUTED IN SEQUENCE. 



iHt 

SBC 11/;^!. 
lOENTII T 

DIAGNOSTIC 



mNCTIONALITf 



ST STEM 

FAILING 

CONSIST 



OF 



THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USt WITH THE DIAGNOSTIC 
RLWTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
THE INTERFACE TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT. 
THIS PROGRAM CAN BE USED WITH XXDP*. ACT, APT. SLIDE AND PAPER 
TAPE. FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES. REFER 
TO THE XXDP* USER'S MANUAL. THERE IS A BRIEF DES:RIPTI0N OF 
THE Pi^TIME SERVICES IN SECTION 2 OF THIS DOCUMEN ' . 



1. 



SYSTEM REQUIREMENTS 



SBC -11/21* PROCESSOR AND MEMORY 

CAUTION.-OIAGNOSTIC REQUIRES 52K WORDS OF MEMORl 

(28K USEABLE AND 4K RESERVED FOR I/O PAGE) 

TSV05 MAGTAPE SUBSYSTEM (DRIVE AND CONTROLLER) 

CONSOLE TERMINAL 

PDP-11 DIAGNOSTIC SUPERVISOR (HSAAA.SYS VERSION 34 OR LATER) 

PDP-11 DIAGNOSTIC LOADER/MONITOR (XXDPO 

1.5 RELATED DOCUMENTS AND STANDARDS 
DIGITAL EQUIPMENT CORPORATION DOCUMENTS: 

1. XXDP* USERS MANUAL 

2. TSV05 TRANSPORT SUBSYSTEM USER'S GUIDE 

3. TSV05 TRANSPORT SUBSYSTEM TECHNICAL MANUAL 

4. TSV05 TRANSPORT SUBSYSTEM INSTALLATION MANUAL 

1,4 DIAGNOSTIC HIERARCY PREREQUISITES 

FLWCTIONAL SBC -11/21* CENTRAL PROCESSOR AND MEMORY 
FUNCTIONAL CONSOLE TERMINAL 

FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR 
FUNCTIONAL DIAGNOSTIC LOADER/MONITOR (XXDP*) 



l.S ASSUMPTIONS 
ALL HARDWARE UQl^l TH£ HARDWARE UNDER TEST Ih Aii^UMED TO WORK 
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PROPtHLi OR TAl 'U t.RRORr, CAN B(- REPORTfO. 

THE TAPF BfING USF.D ON THt^ TSO!J TRANGPORT IS A KNOWN bOOO Hbtl 

OF TAPtr. 

CNTSAA.CNTSBA AND CNTSCA HAVH SUCESSFULLY RUN. 

c\0 OPtRATING INSTRUCTIONS 

THIS SCCTION CONTAINS A BRIEF DtSCRIPTION OK THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP* USER'S MANUAL. 



:m 



COMMAND' 



THERE ARE ELEVEN LEGAL COMMANDS f OR THE DIAGNOSTIC RUNTIME Sr.^vlCES 
(S! "ERVISOR). THIS SECTION LISTS THE C0MM/,N05 AND GIVES A V-'-tt 
BRIEF DESCRIPTION OF THEM. THE XXDP» USER'S MANUAL HAS MORE DETAII S 



COMMAND 

START 
RESTART 

CONTINUE 
PROCEED 
EXIT 
AOD 

DROP 
PRINT 

DISPLAY 

FLAGS 

ZFLAGS 



EFFECT 



START THE DIAGNOSTIC FROM AN INITIAL STATE 

3TART THE DIAGNOSTIC WITHOUT INITIALIZING 

CONTINl* AT TEST THAT WAS INTERRUPTED (AFTER K^ 

CONTINUE FROM AN ERROR K'^LT 

RETURN TO XXDP» MONITOR CXDP* OPERATION ONLH) 

ACTIVATE A UNIT FOR TtSTir^G CALL UNITS ARE 

CONSIDERED TO BE ACTIVE AT START TIME 

DEACTIVATE A UNIT 

DRINT STATISTICAL INFORMATION C IF IMPLEMENTED 

BY THE DIAGNOSTIC - SECTIOu 4.0) 

TYPE A LIST OF ALL O-.VICE INFORMATION 

TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 

CLEAR ALL FLAGS (SEE SECTION 2,3) 



A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. 
YOU MAY. FOP EXAMPLE, TYPE "STA" INSTEAD OF "START". 

2.1.1 OPERATOR COMMANDS 



SO 



THE TSV05 DIAGNOSTIC IS A SB';-ll/2l» DIAGNOSTIC SUPERVISOR COMPATIbLt 
PROGRAM. ALL LOADING AND Rl*jTIME INlTRUCTIONS CAN BE REFERENCED IN THE 
XXOP* USERS MANUAL. THE USER ENTRY IS IN QUOTES. 

BOOT THE DIAGNOSTIC XXOP MEDIA 



.R NTSO?? 

DIAG. RIJJ-TIME SERVICES REV 0. APR 79 

CNTSO A-0 

****TSV05 LOGIC DIAGNOSTIC**** 

L»^IT iS TSV05 

>DR 

2.^ SWITCHES 

THEiiE ARE abVERAL SWITCHES WHICH ARE USED TO MQDlf n SUPERVISOR OPERATION. 
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ThtSK SUlTCHfcS /un APPt.NOfD TO THF l.EGAl COMMAND';. AL I Of TH[- If-GAl 

SWlTCHtS ARE TABiAArtO BtLUW WITH A BRIEF DESCRIPTION OF fACH. 

IN THE DESCniPTIONB BELOW. A DECIMAL NUMBER IS DESIGNATED Br "DDOFJD". 



OEU 000b 



SWITCH 
'THSTS:HST 

/PASS:DDDDD 

/t-LAGS.-Fl GS 

/EOP:DDDDD 
/UNITS:LI5T 

F.XAMPLE OF SWITCH USAGE: 



FEEECT 

E-XECUTE ONLt 
THE LIST. LI 
NiJiBERS. EOR 
THIS LIST WIL 
BE RUN. ALL 
EXECUTE ODDOO 
SET SPECIFIED 
IN SECTION 2. 
REPORT END OF 
DDDOD PASSES 
TEST/ADD/OROP 
IN THE LIST. 
USE UNITS 0,5 



THO!^.V TESTS SPECIEIE:) IN 
ST IS A STRING OF TEST 
EXAMPLE /TeSTq;l:5: ; 10. 
L CAUSE TESTS l.5./,C.^,10 Id 
OTHER TESTS WILL NOT RE fi'J^. 
PASSES CDDDDO - 1 TO 640001 



FLAGS 
6. 

PASS 
ONLY. 

ON'.Y 

LIST 



. ELAGS ARE DESCRIBED 

MESSAGE AFTER EVERT 

CDODOO • 1 TO 64000) 
THOSE UNITS SPECIFIED 
EXAMPLE - /UNITb:0:5:10 



1. 



.10.11,12 (UNIT NUMBERS « 0-63) 



START/TESTS: 1-5/PASS: lOOO/EOP: 100 

THE EFEECT Of THIS COMMAND WILL BE: U TESTS 1 THROUGH S WILL BE 
EXECUTED. 2) ALL I^ITS WILL TESTED 1000 TIMES AND 5) THE END 0^ 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. A 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAY. 
EOR EXAW>LE. TYPE "/TES:l-5" INSTEAD OF "/TESTS:! 5". 

BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND. 



TESTS 



PASS 



FLAGS EOP 



i;nits 



START 


X 


X 


X 


X 


X 


RESTART 


X 


X 


X 


X 


X 


CONTINUE 




X 


X 


X 




PROCEED 






X 






DROP 










X 


ADD 










X 


PRINT 












DISPL^-^Y 










X 


FLAGS 












/FLAGS 












EXIT 













2.5 



FLAGS 



FLAGS ARE USED TO SET U'' CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS 
ARE ALSO CLEA,1ED AFTER A STAR1 COMMAND UNLESS SET USING THE 
FLAG SWITCH. THE ZFLAGS COMMAND LAY ALSO BE USED TO CLEAR 
ALL FLAGS. WITH THE EXCEPTION QF THE START AND 2FLAGS COMMANDS. 
NO COMMANDS AFKECI THE STATE OF THE FUAGSi THtY REMAIN SET QR 
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Cl.LAReO As SPKCTTTtD BY THt LAST FLAG SWITCH. 
Fl At; tFFtCT 



HUt. HALT ON ERROR - CONTROL IS RETURNED TO 

Ri.'NTIHE SF.RVlCtS COHMAND ^ ODt 

L.O^ LOOP ON ERROR 

UR* INHIBIT ALL ERROR REPORTS 

IBR* INHIBIT ALL ERROR REPORTS EXCEPT 

FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR T>rPE. NUMBER, PC. TEST AND UNIT) 

IXE* INHIBIT EXTENDED ERROR REPORTS (THOSE 

CALLED BY PRINTX MACRO'S) 

PRI DIRECT MESSAGES TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE BELL" ON ERROR 

V'AM l^ATTENDED MODE (NO MANUAL INTERVENTION) 

ISR INHIBIT STATISTICAL REPORTS (DOES NOT 

APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 

IDR INHIBIT PROGRAM DROPPING Qf UNITS 

ADR EXwCUTE AUTOOROP CODE 

LOT LOOP ON TEST 

♦ ERROR ;ieS5AGES ARE DESCRIBED IN SECTION 3.1 

SEE THE XXDP» USER'S MANUAL FOR MORE DETAILS ON FLAGS. tOU MAf 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLF . 
TO CAUSE THE. PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A "BELL" ON ERROR. YOU MAY USE THE TOLLOWING STRING: 

/FLAGS :LOE:IER: BOE 



a. 4 HARDWARE QUESTIONS 

WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT 
THE USER FOR HAPOWARE Ih#^ORMATION BY TYPING "CHANGE HW (L) ?' 
YOU t\JSl ANSWtR "Y" AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION MAS BEEN "PRELOADED" USING THE. SETUP UTILITY (SEE 
CHAPTER 14 OF TK XXDP. USER'S MANUAL). WHEN YOU ANSWER THIS 
CK^STION WITH A "Y". THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
Of UNITS (IN DECIMAL). 

AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO THE DIAGNOSTIC 
SUPERVISOR). THE PROGRAM WILL ISSUE THE "CHANGE HW?" QUESTION TO ASK IF 
THt HARDWARE PARAMETERS ARE TO BE CHANGED (BY THE OPERATOR). 

ON A "N" (NO) RESPONSE TO THE "CHANGE HW?" QUESTION, THE DIAGNOSTIC WILL 

RUN USING THE DEFAULT VALUES FOR ALL QUESTIONS* THE DEFAULT ADDRESS AND VECTOR AREt 

TSaA/TSOB • UtQQQt VECTOR • ^^A 
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■11 



^EQ 000? 



ON A ' 1 '■ t YF.S) Rt.SPONSt TO 
IHtN HF ASKED TO ALLOW THt 
VALUt. IF PRESENT, LOCATED 

OEFAIAT VALUE THAT WILL BE TAKEN IE ONLY A CARRIAGE RETURN 15 TfPED AS A 
RESPONSE. A "CD)" IN A QUESTION INDICATES THAT A DECIMAL NiJMBER IS 
REQUIRED AS A RESPONSE. AN "(0)" INDICATES AN OCTAl NUMBER 13 BflNG 
S0LIC:TED. AN "(L)" INDICATES THAT A LOGICAL RESPONSE IS TO BE MADE: 
"Y" EOR YES. "N" FOR NO. 



THE QUESTION. THE KOLLOWINC JUEGTIONS Will 

OPERATOR TO SELECT THE UNITS TO BE TESTED. A 

TO THE LEFT OF THE QUESTION MARK IS THf 

TfPED a: 



i> UNITS (D) ? 



<ENTER THE NUMBER OF H/196 CONTROLLERS 
PRESENT TO BE TFSTLU> 



L^NTT 

DEVICE ADDRESS (0) 176000 ? 



< ENTER THE ADDRESS OF THE 
TSBA/TSDB REGISTER> 



VECTOR (O:; 224 ? 



<ENTER ADDRESS OF INTERRUPT 
VECTOR> 



THE ADDRESS AND VECTOR QUESTIONS WILL 
IXITS (CONTROLLERS) SPECIFIED IN THE 
NUMBERS ARE ASSIGNED IN ORDER, 
SELECTED FOR TESTING AS FOLLOWS: 
UP TO 4 TSV05 CONTROLLERS PER 11/21* 

2.5 SOFTWARE QUESTIONS 



BE ASKED FOR EACH OF THE NUMBER OF 
"« UNITS?" QUESTION. LOGICAL UNIT 
AT 0. UP TO FOUR UNITS CAN BE 

AND UP TO 2 DRIVES PER CONTROLLER 



AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART 

OR CONTINUE COWANO. THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 

PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC 

OPERATION MOOES. YOU WILL BE PROMPTED BY "CHANGE SW (L) ?" 

IF YOU WISH TO CHANGE ANt PARAMETERS, ANSWER BY TYPING 

"1". THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 

IN THE NEXT PARAGRAPH S). 

THE FOLLOWING QUESTIUNS ARE ASKED ON A START, RESTART, OR CONTINUE 
THEY ALLOW FLEXIBILITY IN THE WAY THE PRCKiRAM BEHAVES. 

CHANGE SW (L) ? <TYPE t TO CAUSE THE FOLLOWING 

QUESTIONS TO BE ASKED> 



INHIBIT ITERATION^; (L) N V 



<TYPE "Y" TO PREVENT MULTIPIL 
ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS TO 
Rl»J AS OUICKLT AS POSSIBLE. 
ONI Y QUICK -RLWNING LOGIC 
TESTS USE MULTIPLE 
ITERATIONS.^ 



2.6 EXTENDED F- TABLE DIALOGIC 



WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES 
IN A TABLE THAT DESCRIBES THE OF.VICES UNDER TEST. THE SIMPl EST 
WAf TO BUILD THIS TABLE IS TO ANSWER ALL QUESTIONS FOR EACH 
UNIT TO BE TESTED. IF YOU HAVE A MULTIPLEXED DEVICt SUCH AS 
A MASS STORAGE CONTROLLER WITH SLVERAL DRIVES OR A COMMUNICATION 
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DtVICr WITH SEVFRAL LiNtS. IHIS BtCOMtS ThOIOUS SINCF HOST OF 
THt ANSWERS ARe RtPK TI T lOUS . 

TO ILLUSTRATE A MORh fcKPlCIF.Nr MFTHOD, SUPPOSE tOH ARt^ TF'^TlNi, 
A DEVICE, TK- XYll. SUPPOSE THIS DEVICE C0N'>I:U'3 Of 
A CONTROL HODU.E WITH EIGHT UNITS C SL© DEVICP S ) ATTACHFD TO IT. 
THESe UNITS ARE DESCRIBED B> THf OCTAL NlJMBERS THROUGH /. THERE 
IS ONE HARDWARE PARAMETER THAT CAN VARf AMONG UNIT', CALLED THF 
Q FACTOR. THIS Q-FACTOR MAY HF OR 1 . BFl OU I^ A SIMPLE WAt 
TQ BUILD A TABLE FOR ONE XtU WITH EIGHT UNITS, 

4 UNITS CD) ? 8<CR> 

UNIT I 

CSR ADDRESS (O ? lfcOOOO<CR> 
SUB-DEVICE (0) ? 0'CR> 
Q-FACTOR CO) ? 1<CR> 

UNIT 2 

CSR ADDRESS CO) ? 160000<CR^ 
SUe-DEVlCE ^ 10) ? I'CR* 
Q-FACTOR CO) 1 ? 0<CR> 

UNIT 3 

CSR ADDRESS CO) ? 160000cCR> 
Si^-OEVICE CO) ? ?«CR> 
Q-FACTOR CO) ? <CR> 

UNIT 4 

CSR ADDRESS ^0) ? 160000<CR> 
SUB-DEVICE CO) ? 5<CR> 
Q-FACTOR CO) ? <CR> 

UNIT 5 

CSR ADDRESS CO) ? 160000<CR> 
SUB-DEVICE CO) ? 4<CR> 
Q-FACTOR (0) V <CR^ 

UNIT 6 

CSR ADURESS CO) ? 160000<CP> 
SUB-DEVICE CO) ? 5<CR> 
Q-FACTOR Co:* ? <CR* 

UNIT 7 

CSR ADDRESS CO) ? 160000<CR> 
SUB-DEVICt vO) 7 6<CR> 
Q-FACTOR CO) ? X<:R> 

UNIT 6 

r':R ADDRESS CO) 160000<CR> 

S!je-OEVICE CO) ? 7<CR> 
Q FACTOR CO) I '> <CR> 

NOTICE THAT THE DEFAULT VALUt FOF THE Q FACTOR CHANGES WHEN A 
NON-DEFAULT RESPONSE IS GIVEN, BE CAREFUL WHEN SPtClEYlNb 
MULTIPLE UNITS! 
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AS >0U CAN SHr f ROM THt AbUVl. hXAMPLt. , THK HARDWARE PARAMETF.RO 

DO NOT VARr SIGNIFICANTLY F-RQM UNIT TO UNIT. THt PROCtOURF SHOWN IS 

NOT VFRY FFnCIENT, 

IK: RttNTIMF SFRVICF.S CAN TAKfc MULTIPLE UNI I SPt.C U ICAT lON'i HOWFVFR. 
LfcT'S t^'.'ILD THE SAME TABLE U'ilNG THE MULTIPLE SPtCTFICATlON 
FEATURE . 

e UNITS (D) ? 6<CR^ 

UNIT I 

CSR ADDRESS CO) ? 160000^CR> 
GUB-OEVICE (0) ? 0.1^CR> 
Q-FACTOR (0) ? 1.0<CR> 

UNIT 5 

CSR ADDRESS CO) ? 160000* CR> 
sue DEVICE (0) ? ?5<CR'» 
Q FACTOR (0) ? 0<CR> 

UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE (0) ? 6.7<Crt> 
Q-FACTOR (0) ? 1<CR> 

AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES UILL 
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY 
ONE PASS THROUGH THE QUESTIONS, IN THE FIRST PASS, TWO ENTRIES 
ARE BUILT SINCE TWO SUB-DEVICES ANO Q-FACTORS WERE SPECIFIED. THE 
SERVICES ASSLWE THAT THE CSR ADDRESS IS 160000 FOR BOTH SINCE IT 
WAS SPECIFIED ONLY ONCE. IN THE SECOND PASS. FOUR ENTRIES WERE 
BUILT. THIS IS BECAUSE FOUR SUB DEVICES WERE SPECIFIED. THE 
"-" CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA 
FROM THE FIRST NUMBER TO THE SECOND. IN THIS CASE, SUB-DEVICES 
?, 5. 4 ANO 5 WERE SPECIFIED. (IF THE SUB-DEVICE WERE SPECIFIED 
BY ADDRESSES. THE INCREMENT WOULD BE bV 2 SINCE ADDRESSES MUST 
BE ON AN EVEI' BOUNDARY.) THE CSR ADDRESSES AND Q FACTORS FOR 
THE FOL« ENTRIES ARE ASSUMED TO BE 160000 ANO RESPECTIVELY 
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 

THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 

d l^ITS (D) ? 8<CR> 

UNIT 1 

CSR ADD9ESS CO) ? 160000<CR> 

SUB DEVICF fO) ? 0'7<CR> 

Q FACTOR CO) ? 0, 1 . 0, , . . 1 . 1<CR> 

AS YOU CAN SEE FROM THIS EXAMPLE. NULL REPLIES COMMAS ENCLOSING 
A NUll FIELD) TELL THE RUNTIME SERVICES TO REPE^iT THE LAST REPLY. 

.^ / QUICK START UP PROCEDURU CXXQP*) 

TO START-UP THIS PROGRAM; 
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1. BOOT XXDP* 



'dEQ 0010 



^. GIVE, THE DATt AND ANLjWtR THE LSI AND ^jOH/ C IF' THFRF 
IS A CI OCK) QUESTIONS 

3. TtPF. "R NAMt", WHERt NAMF IS THt NAMK OF THt BIN OR BIC 
FILE FOR THI'J PROGRAM 

4. TYPF "START" 

5. ANSWER THE "CHANGE HU" QUESTION WITH "f" 

6. ANSWER ALL THE HARDWARE QUESTIONS 

7. ANSWER THE "CHANGE SW" QUESTION WITH "N" 

WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONI Y T.HE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
AE DESCRIBED IN SECTIONS 2.3 AND 2.5. 

3.0 ERROR INFORMATION 

3.1 TYPES OF ERROR MESSAGES 

THERE ARE THREE LEVELS OF ERROR *1ESSAGES THAT MAY BE ISSUED BY 
A DIAGNOSTIC: GENERAL. BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED l^«-tSS THt "lER" FLAG IS SET (SECTION 2.3). 
THE GENERAL ERROR MESSAGE IS OF THE FORM: 

NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PCrXXXXXX 
ERROR MESSAGE 

.W^fERE; NAME - DIAGNOSTIC NAME 

TYPE ' ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT; 

NUMBER - ERROR NUMBER 

UNIT NUMBER • - N (N IS LAST UNIT IN PTABLf ) 

TST NLWBER - TEST AND SUBTEST WHERE ERROR OCCURRED 

PCrXXXXXX - ADDRESS OF ERROR MESSAGE CALL 

BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOC'T THE ERRuR. THESE ARE ALWAYS PRINTED UNLESS 
THE "lER" OR "IBR" FLAGS ARE SET (SECTION ?.3\ THESE MESSAGES 
ARE PRINTED AFTER THE ASSCIATED GENERAL MES'^AGE . 

EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS 
PRINTED UNLESS THE "lER". "IBR" OR "IXE" FLAGS ARE SET (SECTION 2,3). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 

3.2 SPECIFIC ERROR MESSAGES 

BELOW ARE SAMPLE ERROR MESSAGES. EACH ERROR MESSAGE REPRESENTS DIFFERENT TYPES 
OF ERRORS DETECTED BY THIS DIAGNOSTIC. 
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LRROR Ht.SSAGE EXAHPL.F 1 

THIS ^RROR IS INDICATIVE Of AN INCORRECT RtGI^jTtR OR STATUS WORD RE-TURNeO 
TO THfc DIAGNOSTIC THE FIRST PART DEFINES THE TEST FUNCTION AND UNIT THAT FAIieU 
Tht SECOND PART PklOVlDES THE REGISTER BITS AND THEIR MNEMONICS FOR IHF 
INCORRECT REGISTER OR STATUS WORDS. THE THIRD PART IS THE EXPbLiF.D AND RbrEIVFD 
DATA. 



SEQ 0011 



TST: 016 FIFO EXERCISER TEST 

CNTSD HRD ERR 01610 ON UNIT 00 TST 016 SUB 002 PC: 040624 

FIFO STATUS (IN WORD 9) INCORRECT AFTER WRITE FIFO 



TAPE BUS SIGNALS IN WORD ^8: - DESIGNA 
PARERR< 15> lEOT < ld> IFhK <9> IROl 
IRESV2<14> II0FNT<11> IHER '-8> lONL 
IRESV1<13> ICER <10> ISPEE0<7> ILOP 

TAPE BUS SJGINALS IN WORD #9; 
DATMIS<7> ILW<6> 0UTRDY^5> INRDY<4> 

MESSAGE BUFFER ADDRESS • 047352 

MESSAGE BUFFER CONTENTS: 
WORD CO EXPD: 100020 
WORD «1 EXPO; 000C12 
WORD #2 EXPD; 000000 
WORD *3 EXPD: 000010 
WORD #4 EXPD: OOOOOO 
WORD #5 EXPO: OOOOOO 
WORD *6 EXPO: OOOOOO 
WORD «7 EXPO; OOOOOO 
WORD *e EXPD: 070^1/ 
WORD #9 EXPD: 000074 



TOR <UIT Oy 
<6> IRWD<^2> 
<5> IFBy<l> 
<4> IFPT<0> 



RECV: 


100020 


XOR: 


OOOOCO 


RECV; 


000012 


XOR: 


OOOOOO 


RECV: 


OOOOOO 


XOR: 


OOOOOO 


RECV: 


000010 


XOR: 


OOOOOO 


RECV: 


OOOOOO 


XOR: 


OOOOOO 


RECVt 


OOOOOO 


XOR: 


OOOOOO 


RECV: 


OOOOOO 


XOR: 


OOOOOO 


RECV: 


OOOOOO 


XOR: 


OOOOOO 


RECV: 


070217 


XOR; 


00*^000 


RECVi 


000034 


XOR: 


:.oo4o 



F.RROR MESSAGE EXAMPLE 2 

THIS ERROR SHOWS ^^ AL FUNCTION ERROR FROM THE TAPE DRIVE, IN THIS 

INSTANCE A UNREC0VEF,rf8LE ERROR OCCURED WHICH INDICATES THAT THE CONTROLLER 
MAY BE DEFECTIVE. 

CNTSD HRD ERR 00159 ON UNIT 00 TST 001 SUB 005 PC: 026202 
TSSR NOT CORRECT AFTER SPACE RECORDS COMMAND 

TSSR - 100214 

TSSR BITS SET: SC.SSR 

TERMINATION CLASS CODE 

PACKET ADDRESS • 026420 

PACKET WORD * - 140010 

PACKET WORD O ■ 000010 

PACKET WORD ^> - OOOOOO 

PACKET WORD # - 000024 



UNRECOVERABLE ERROR 



ERROR MESSAGE EXAMPLE 3 

THIS ERROR SHOWS THAT THE MOTION BIT 010 NOT GET SET WHiLb DOING A REWING 
WITH UTENOEO FEATURES MODE ENABLED. 



USLR DUCUHLNTAllON 



MACRO MK>00 JO MrtK 8^ Ov^:44 P'U,K 4 9 



bLQ 001^ 



CNTSD HHD hRR OOUn ON UNIT CO TST 001 SUB 00' 
MJT BIT (XSTO) NOT St. T DURING REWIND CEXTtNDE.D 
tXPD: C0031i? RECV: O-lOllc^ XQR: 000(?00 



PC: V <\*>506 
FEATURES MODE) 



A.J PERFORMANCE AND PROGRESS REPORTS 

AT TH': END OF EACH PASS, THE PASS COUNT IS GIVE^J ALONG WITH THf 
TOTAi NUMBER OF ERRORS REPORTED SINCE THE DIAGNO:.TIC WAS STARTED 
THE "cOP" SWITCH CAN BE USED TO CONTROL HOW Of Te N THE END 
OF PAr.S MESSAGE IS PRINTED. SECTION 2.? DESCRIBES SWITCHES. 

SUCCESSFUL RUN EXAMPLE CSBC-11/210 



DR>STA/FLA:PNT:HOE 

UNITS CD) ? 1 

UNIT 

DEVICE ADDRESS CO) 176000 ? 'CR> 

VECTOR CO) 224 ? <CR> 

CHANGE SW CD ? N<CR> 



THE ABOVE COMMAND WILL START THE DIAGNOSTIC. THE COMMAND HAS TWO 
SWITCHES ON WHICH ARE "PRINT EACH TEST NBR AS EXECUTED" AND "HALT ON 
ERROR". 

SKID TAPE MARKS TEST 

NO-OP AND INITIALIZE TEST 

ERASE AND OPEKATION INCOMPLETE TEST 

DATA PARITY TEST 

TEST or OPERATIONS AT EOT TEST 

EXTENDED -MODE FUNCTIONS TEST 

RECORD BUFFERING TEST 

FUNCTION TIMING TEST 



NOTE: THE DIAGNOSTIC WILL RUN CONTINUOUSL. UNLESS A PASS NUMBER LIMIT HAS 
BEEN SPECIFIED WITH THE "/PASS:" SWITCH. 

PROGRAM RUN TIMES 

THE AVERAGE RUN TIMES OF THE PROGRAr ARE LISTED BflOW, THESE FIGURES ARE 
TO BE USEu AS A GUIDE. THE TIMING WAS DONE ON A FALCON 
PROCESSOR. 



TST 


001 


TST 


002 


TST 


003 


TST 


004 


TST 


005 


TST 


006 


TST 


007 


TST 


008 


EF 


^RORS 



THE PROGRAM RUNS IN TWO MOOESj NO ITERATIONS AND DEFAULT MODE. 
NO ITERATIONS lODE EACH TEST IS RUN ONCE. WITH NO ITERATIONS. 



IN THE 
IN THE 



DEFAULT MODE tACH TEST IS REPEATED B» Th:: r.-'^T^CER OF TIMES INDICATED B1 
THE ITERATION COUNT, NO ITERATIONS MODE IS SELECTED BY ANSWERING THE 



USER OOCUMfcNlATION MACRO Nl^OO c\VMAR-a4 06:44 PAGK 4 10 



■■ I I 
■^ i. 



INHIBIT ITERATinNS UUESTION WITH A "T" (te'S). 

THt: TIMh REQUIRED TO RUN TFSTS 1 THROLCH IN ONc COMMAND iS 5 HOURS. 

MORE EXHAUSTIVE CHECKS ARE AVAILABLE BY ALLOWINti THt DIAC;N0'3T1C ^'ROGRAMS 
TO RUN FOR MORE THAN ONE PASS. THE SECOND PAS.; OK THF PROGRAM [', MORt 
COMPREHENSIVE THAN THE FIRST PASS. ALL 11 ERA' IONS AKTER THE FIRS I PASS 
ARE THE SAME, HOWEVER, THEY ARE SUBSTANTIALl Y LONGER. 

^.0 DEVICE INFORMATION TABLES 

WHENEVER THE PROGRAM IS STARTED. VIA THE STACRT) COMMAND. 
THE SliPERVISOR REQUESTS THE FOLLOWING P- TABLES PARAMETER 
CHANGES: 

CHANGE HW (L) ? 

* UNITS (D) ? <ENTER THE NUMQER OF M7196 CONTROLLERS 

PRESENT TO BE TESTED' 

UNIT 

DFVICE ADDRESS (0) 176000 ? <tNTER THE ADDRESS Gr THE 

TSBA/TSDR REGISTER> 

VECTOR CO) 2'eA ? 'ENTER ADDRESS OF INTERRUPT 

VECTOR> 

THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THt NitMBFR OF 
•iNITS CCONTROLLERS) SPECIFIED IN THE "0 UNITS?" QUESTION. I OGICAi iJNI T 
NUMBERS ME ASSIGNED IN ORDER. BEGINNING AT 0. JP TO FOUR UNITi: CAN BE 
SELECTED FOR TESTING. 



IN ADDITION, ON A START, RESTART OR CONTINUE THt SL>PERVIS0R 
REQUf.STS CHANGES TO THE SOFTWARE OPERATING P^.RAMETERS, AS 
FOLLOWS: 

CHANGE SW CD ? 

INHIBIT ITERATIONS (L) N ? 



6.0 TEST SUMMARIES 

TEST I: URITE TAPE MARK RETRY 

THIS Tt^U VERIFIES PROPER OPERATION OF THE WRITE TAPE MARK RETRY COMMAND C SPACE 
REVERSE. ERASE, WRITE TAPE MARK). 



UStR DOCUMF.NTATION 



MACRO Mlc^oO iJO-MAR (J/J OR: 44 PACK 4 U 



'oEO 0014 



Tt^.Sr ^: SKIP TAPt MARKS 

THIS TEST VERIFIES PROPER OPERATION OF THE SKIP TAPE MARKS 
FORWARD AND SKIP TAPE MARKS REVERSE COMMANDS. PROPER OPERATION 
UNDER CONTROL. OF ALL COMBINATIONS OF THE ENABLE '^KIP TAPt MARKS 
STOP CESS) AND ENABLE TAPE MARKS STOP OFF BOT CENB) BITS SPECIFIED 
BY THE WRITE CHARACTERISTICS COMMAND. 

TEST 3: NO-OP C "CLEAN TAPE") AND INITIALIZE 

THIS TEST VERIFIES PROPER OPERATION OF THE NO-OP ("CLEAN TAPE") AND INITIAL IZe 
COMMAND (SPACE REVERSE, ERASE. WRITE DATA) 

TEST 4: ERASE AND OPERATION INCOMPLETE 

VERIFIES THAT AN ERASE CCMMANO ISSUED WHEN THE TAPE IS 
POSITIONED AT BOT OPERATES PROPERLY AND ACTUALLY ERASES TAPE. 

TEST 5: DATA PARITY TEST 

THIS TEST VERIFIES THAT THE DATA PARITY CIRCUITRr IN BOTH THE CONTROLLER ANO THE 
TRANSPORT IS OPERATING PROPERLY BY FORCING DATA RECORDS WITH WRONG PARITY TO BE 
WRITTEN ONTO TAPE ANO CHECKING THE RESULTS OBTAINED WHEN THE DATA IS READ. 

TEST 6: OPERATIONS AT EOT 

THIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY 
COMMAND (SPACE REVERSE, ERASE, WRITE DATA) 

TEST 7: EXTENDED MODE FEATURES 

THIS TEST VERIFIES THE OPERATION OF COMMANDS ONLY AVAILABLE WHEN 
THE CONTROLLER IS IN THE EXTENDED FEATURES MODE. THESE COMMANDS 
ARE: 

REWIND WITH IMMEDIATE INTERRUPT 

IF THE CONTROLLER IS NOT ALREADY IN EXTENDED FEATURES MODE, IT 
IS PLACED THERE VIA A WRITE SUBSYSTEM MEMORY COMMAND. 

TEST 6; RECORD BUFFERING 



THIS TEST VERIFIES THAT RECORD BUFFERING, USED FOR WRITE DATA 
AND READ NEXT COMMANDS, OPERATES PROPERLY ANO IS PROPERLY 
CONTROLLED BY THE EXTENDED CHARACTERISTICS DATA WORD. IF THE 
M7196 CONTROLLER MODIA.E IS NOT ALREADY IN EXTENDED FEATURES MODE 
(AS CONTROLLED BY THE DIP SWITCH ON THE MODULE), IT IS PLACED 
INTO THAT MODE BY INVERTING THE SENSE OF THE SWITCH USING THE 
WRITE SUBSYSTEM MEMORY COMMAND. NOTE THAT RECORD BUFFERING HAS 
BEEN ENABLED IN PREVIOUS TESTS OF READ ANO WRITE AND SO HAS BEEN 
PARTIALLY TESTED AuREADY. THIS TEST VERIFIES THAT 01JFFE.RIN6 IS 
ACTUALLY QPERATXNG. 



UStR OOCUMt-NVATION 



MACRO Mlc>00 ,00 MAR HA 08:40 PACK A U? 



^-.FQ 



0015 



TEST 9; FUNCTION TIMING 

THIS TEST VERIFIES THAT THE TAPE TRANSPORT SEEMS TO Bt WRHINC, 
RECORDS. GAPS. AND EXTENDED GAPS OF THE PROPER LENGTH. BOTH LOW 
AND HIGH SPEED MODES ARE TESTED. IT IS ALSO VERIFIED THAT A 
SKIP TAPE MARKS COMfiANO WITH A COUNT OF 6 Of" MOHL , OPERATf THE 
TAPE IN HIGHSPEED MODE. THIS TEST CAN ONLT BE RUN IF A 
REAL-TIME CLOCK IS AVAILIABLE ON THE SYSTEM. THF TEST OPERATtf, HY 
TIMING VARIOUS TAPE-MOTION OPERATIONS. USING A NUMBER OF 
DIFFERENT TEST RECORD LENGTHS. 



7.0 MAINTENANCE HISTORY 

REVISION A - MARCH 1982 
REVISION 8 - APRIL 1983 



- FIXED TWO PROBLEMS. ONE IN TEST 1 AND THE 
OTHER IN TEST 8. 

REF. OOYLE TO GHASKY "TSV05 CVTSDA DIAGNOSTIC 
PATCH"| 23-DEC-82. 



CVTSOBO »> CNTSDAO 



JAKI BERG 



9 -APR -1984 



CHANGES WERE MADE TO CVTSDBO TO PRODUCE CNTSDAO FOR THF 
FALCON-PLUS PROJECT (SBC-11/210. CHANGES, MARKED Bt 
I'.gg REV A-0". ARE; 

- SET THE*ODT BREAK VECTOR (LOCATION 140) TO THE 
STARTING ADDRESS OF FALCON'S OOT ROM ( 170000-OCTAL) 

- LOWER THE GENERAL INTERRUPT priority FROM 7 TO 6. 
^ CHANGE DEFAULT CSR ADDRESS FROM 173540 TO 176000. 



TSV.^ ^'RnuRAM HLADKR MACRO HK^OO ,^0 MAM rtA 0^:44 PAt.t. / 



), 



SEQ 0016 



4 






10 






U 
1.- 


000000 




!5 
19 


OOOOCO 




JO 




002000 


21 


002000 




1-1 


C 02000 




2S 






IM 






as 






26 






?J 






28 






29 


002000 




30 


002000 
002000 






002000 


103 




002001 


116 




002002 


124 




002003 


123 




002004 


104 




002005 


000 




00200<> 


000 




002007 


000 




002010 






002010 


101 




002011 






002011 


060 




002012 






002012 


000000 




002014 






002014 


001217 




002016 






002016 


105576 




002020 






002020 


105730 




002022 






002022 


002150 




002024 






002024 


002160 




002026 






002026 


106404 




002050 






002030 


000000 




002032 






002032 


000000 




002034 






002034 


000000 




002036 






002036 


000000 




002040 






002040 


003X24 



.SHTTL 



TSV2 - PROGRAM HhADER 
PROGRAM HEADER 



SVC 



TSV2: : 



.MCALL 

SVC 

.ENABLE LC 

.NLIST BEX.CNO 

.ENABL ABS.AMA 

.-2000 

BGNMOD TSV2 



; INITIAL r/L bU^ERVlOUR MACROS 



THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 



L$NAME: 



L$RCVi 

L$OEPO 

L$UNIT 

LSIIML 

LIHf>CP 

L$SPCP 

LiHPTP 

L$5PTP 

L*LADP 

L*STA: 

L$CO: : 

L$DTYP 

L$APT: 

L*OTPi 



POINTER BGNSW , BGNSF T . BGNAU , BGNDU . BGNRP T 
HEADER CNTSD,A,0,655.,0 

J DIAGNOSTIC NAME 
.ASCII /C/ 
.ASCII /N/ 
.ASCII /T/ 
.ASCII /S/ 
.ASCII /D/ 
.BYTE 
.BYTE 
.BYTE 



jREVISION LEVEL 
»0 

:NUMBER OF UNITS 
jLONGEST TEST TIME 
jPOINTER TO H.W. QUES. 
(POINTER TO S.U. QUES. 
tPTR. TO DEF. H.W. PTABLE 
jPTR. TO S,W. PTABLE 
(DIAG. END ADDRESS 
jRESERVED FOR APT STATS 

(DIAGNOSTIC TYPE 
(APT EXPANSION 



.ASCII /A/ 

.ASCII /O/ 

.WORD 

.WORD 655. 

.WORD LIHARD 

.WORD LJSOFT 

.WORD L$HW 

.WORD LJSW 

.WORD L$LAST 

.WORD 

.WORD 

.WORD 

.WORD 

;PTR, TO DISPATCH TABLE 

.WORD L ♦DISPATCH 



TSV.^ PHOCRAM 


HtAOKR 


PROGRAM HFADER 




002042 




002042 


000000 


002044 




002044 


000000 


002046 




002046 


000000 


00205.0 




002050 


005 


002051 


003 


002052 




002052 


000000 


002054 


000000 


002056 




002056 


000000 


002060 




002060 


003374 


002062 




002062 


022772 


002064 




002064 


000000 


002066 




002066 


000000 


002070 




002070 


022460 


002072 




002072 


022556 


002074 




002074 


000000 


002076 




002076 


003402 


002100 




002100 


104035 


002102 




002102 


000000 


002104 




00210iS 


021636 


002106 




002106 


022744 


002110 




002110 


022664 


002112 




002112 


021626 


002114 




002114 


000000 


002116 




002116 


000000 


002120 




ooaiso 


000000 



MACRO M1200 .?0-MAR «4 08:44 Prt(,F / I 



SEQ 0017 



1 f.PRIO: 








* .WORD 





L»FNVI: 








' .WORD 





L$l-XPl: 








* . WORD 





LSMREV: 








' .BtTt 


CiREVIa 




.BYTE 


C$EDIT 


LJEF:: 








.WORD 







.WORD 





LJSPCt : 








.WORD 





LSDEVP: 








* . WORD 


LJDVTYP 


L$REPP: 








' . WORD 


LiRPT 


L$EXP4: 








' .WORD 





l.$EXP5: 








' . WORD 





L$AUT;: 








.WORD 


LJAU 


L$DUT:: 








.WORD 


L$DU 


L$LllN: : 








.WORD 





LJDESP: 


: 






.WORD 


LIDESC 


LiLOAO: 


: 






EMT 


EJLOAD 


L$ETP: : 








.WORD 





LtlCP: ; 








.WORD 


LJINIT 


L$CCP:: 








.WORD 


L$CLEAN 


L$ACP: : 








.WORD 


LIAUTO 


L$PRT: : 








.WORD 


LiPROT 


L$TEST: 


: 






.WORD 





LiDLY: : 








.WORD 





L$HXt1Ei 


t 






*WQRO 






iDIAGNOSnC RUN PRIORI! t 

jFl.AGS DEfjCRim, HOW IT WAS StTUP 

;txPANbI0N WORD 

J SVC RtV AND EDIT i> 
ON 

jDXAG. EVENT FLAGS 



t POINTER TO DEVICE TYPE LIST 
jPTR. TO REPORT CODE 



iPTR. TO ADD UNIT CODE 

jPTR. TO DROP UNIT CODE 

jLUN rOR EXERCISERS TO FILL 

(POINTER TO DIAG. DESCRIPTION 

iGENERATc SPECIAL AUTOLOAD EMT 

(POINTER TO ERRTBL 

:PTR. TO INIT CODE 

iPTR. TO CLEAN-UP CODE 

jPTR. TO AUTO CODE 

iPTR. TO PROTECT TABLE 

J TEST NLflBER 

iDELAY COUNT 

fPTR. TO HIGH MEM 



TSV.^ P(?Ot;RAM Ht-ADKR MACRO MU'OO c:!0-MAR-a4 09:41 PAf.it. « 
DISPATCH TABLf 

^^ .SBTTL. DISPATCH TABLF 

?/; 

54 

56 
5V 
58 
59 00r?l?2 

002122 000011 

002124 

002124 023554 

002126 032564 

002130 041462 

002152 047020 

002154 053076 

002136 056072 

002140 063444 

002142 075574 

002144 101150 
40 



StQ OOlfi 



THE DISPATCH TABLE CONTATNG THl STARTING ADDRESS Of eACH TEST 
IT IS USED BY THE SUPERVISOR TO DISPATCH XO EACH TEST. 



DISPATCH 9 


.WORD 


9 


L$DISPArCH: : 




.WORD 


Tl 


.WORD 


T2 


.WORD 


T5 


.UOPD 


T4 


.WORD 


T5 


.WORD 


T6 


.WORD 


17 


.WORD 


T8 


.WORD 


T9 



rSV.^ PROCIPMM HLrtOKR MACRO Hl?00 c»0-MAR-84 08:44 P/Uit 9 
DtFAULT HAROWARfc P-TABLt 



'. '1. . 



bEQ 0019 



4^ 

4 5 

44 

4^^ 

46 

4 7 

48 

49 002146 
002146 
002150 
002150 

SO 

51 002150 

52 002152 

53 002154 

54 002156 
002156 



.SBTTL DEFAULT HAROWARfc P-TABLe: 



I ** 



THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
THE TEST -DEVICE PARAMETERS. THE STRUCTURE QF THl^j TABLE 
IS IDENTICAL TO THE STRUCTURE OF THF RUN TIMt P-TAHlE. 



000003 



176000 
000224 
000200 



L$HW: : 
DFPTBL: 



L 10000: 



BGNHW 
.WORD 



.WORD 
.WORD 
.WORD 
ENDHW 



DFPTBL 
L10000~L$HW/2 



176000 

224 

PRi04 



; DEFAULT HARD -P- TABLE 



1ST (OF 2) REGISTFRS 
INTERRUPT VECTOR 
INTERRUPT PRIORITY. 



TSV,^ PRO(,RAM H A13£R MACRO Ml^OO 
SOFTWARE P-TABLt 
^6 



58 
59 
60 
61 

6^ 



J0-MAR-a4 08:44 PAGE 10 



.SB TIL SOFTWARE P-TABLt 

THb SOfTWARt P-TABLt CONTAINS THE VALUES OF THE PROGRAM 
PARAMETERS THAT CAN BE CHANGLU BY THE OPERATOR. 



SEQ 00^0 



65 
64 
65 
66 
67 
68 
69 
70 

71 
72 



002136 
002156 
002160 
002160 

002160 
002162 



002164 
002166 
002170 
002170 

002170 



000004 



000000 
000000 



000017 
000310 



t^GNSW 
.WORD 



L$SW: : 
SFPTBL:; 

TRANSTST: : 
NOITS: : 



LERRMAX: : 
CFRRHmX: : 

tNOSW 
LlOOOl; 

&NDHOD 



SFPTBL 
LlOOOl -L$SW/2 



.WORD 
.WORD 



.WORD 15. 
.WORD 200. 



: ENABLE TEST OF THANSPORT(S) IF 

t INHIBIT ITERATION OPTION. 

J ... - ITERATE. 

I . . .NZ - INHIBIT ITERATE. 

I LOCAL (PER TEST) ^RROR LIMH 

i GLOBAL (PER UNIT) ERROR LIMIT 



n 



T^w^ lU onAi »\r; as 

SUFTWARF P-TABLt 



8 
19 

0021 70 



MACRO Ml^OO c^0-MAH-tJ4 06:44 PAGH 13 



;^8 

3<e 002170 



100000 
040000 
OPOOOO 
010000 
004 OOO 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 

001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



000040 
00003 7 
000036 
00003S 
000054 



SECJ 0021 



TSV3: ; 



.TI^- b. TSV5 GLOBAL f\Uij\[\ 
.SRifl. GLOBAL. EQUATES SBCTTON 



BGNMOD TSV3 



.SBTTL GLOBAL EQUATES SECTION 



THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EUUATt-'S THAT 
ARE USED IN MORE THAN ONE TEST. 



EQUALS 



; GET STANDARD EQUATES 



'; BIT DIFINITI 


BIT15- 


• 100000 


BIT14- 


« 40000 


BIT13- 


" 20000 


BIT12- 


• 10000 


BITU- 


" 4000 


BITIO- 


" 2000 


BIT09- 


" 1000 


BIT08-' 


' 400 


BIT07- 


■ 200 


BIT06- 


- 100 


BIT05-' 


' 40 


BIT04- 


' 20 


BIT05- 


• 10 


BIT02- 


■ 4 


BITOl- 


■ 2 


BITOO- 


• 1 


6119-- 


BIT09 


BIT8-- 


BIT08 


BIT7-- 


b:to7 


BIT6-- 


BIT06 


BIT5-- 


BIT05 


BIT4-- 


BIT04 


BIT3-- 


BIT03 


BIT2-- 


BIT02 


Bill-- 


BITOl 


BITO-- 


BITOO 



EVENT FLAG DEFINITIONS 

RF32:EK17 RESERVED FQR SUPERVISOR TO PROGRAM COMMUNICATION 

BIT POSITION IN SECOND STATUS UORO 
(100000) START COMMAKiD WAS ISSUED 
(040000) RESTART COMMAND WAS ISSL^D 
(020000) CONTINUE COMMAND UAS ISSUED 
(OlOOOO) A NEW PASS HAS BEEN STARTED 
(004000) A POWER -FAIL /POWER -UP OCCURRED 



EF 


.5TART-. 


32. 


EF 


.RESTART-- 


31. 


EF 


.CONTINUE*" 


30. 


EF 


.NEW"- 


29. 


EF 


.PWR«« 


26. 



TSV< LilHlMl ARl '\S NACRU M1?00 

GLOBAL tQUATtS StCTlON 



000540 
000300 
000^40 
000200 
000140 
000100 
000040 
000000 



000004 
000010 
OOOOf^O 
OOC040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 

34 ooai7o 



000250 

177572 
177574 
177576 
173516 



'0-HAR 84 08:44 PA(,e 15 1 



J PRIORITY Lb.VEL. DEFINITIONS 

PRI07-- 540 

RI06'- 500 

PRIOS-^ 240 

PRI04-- 200 

PRI03-- 140 

PRI02''- 100 

PRI01-- 40 

PRI00-- 



OPERATOR FLAG BITS 



sFi oo;>2 



EVL- 
LOT- 
ADR- 
IDU- 
I5R- 
UAM- 
BOE' 
PNT- 
PRI* 
IXE- 
IBE- 
lER- 
LOE* 
HOE- 



.SBTTL 
;*Kni 
MMVEC- 
;*KT11 
SRO- 
SRI- 
SR2- 
SR3- 
.IF NB 
; *USER 
UIPDRO 
UIPDRl 
UIPDR2 
UIPDR3 
UIP0R4 
UIPDR5 
UIP0R6 
UIPDR7 
.IF N6 
;*U5ER 
UOPORO- 
UOPDRl 
U0PDR2 
UDPDR3 
UOP0R4 
U0P0R5 
U0PDR6 
UOPOR?^ 



4 

10 

20 

40 

100 

200 

400 

1000 

2000 

4000 

10000 

20000 

40000 

100000 

'<TU 

HEMORY MANAGEMENT DEF INT T IONS 
VECTOR ADORESS 

250 
STATUS REGISTER ADDRESSES 

1''7572 

1.7574 

177576 

172516 



J DEFINE MEMORr MANAGEMENT REGISTERS 



"I" PAGE 
177600 
177602 
177604 
177606 
177610 
177612 
177614 
177616 

"D- PAGE 
177620 
177622 
177624 
177626 
177650 
177632 
17 7634 
177656 



DESCRIPTOR REGISTERS 



DESCRIPTUR REGXSTORS 



I ( 



r*'V^ lU OBAl ARt.AS MACRO M1200 cJO-MAR -84 08 : 44 PAGK 15-5 

MtNORY MANAGEMENT DEFiNlTTUNb 



sea oo;>3 



.KNDC 




:*USER "I" PAGE 


AODRES'5 REGISTERS 


UIPARO- 177640 




UIPAR1= 17764^ 




UIPAR2- 177644 




UIPAR3- 177646 




UIPAR4- 177650 




U1PAR5- 17765? 




UIPAR6- 177654 




UIPAR7- 177656 




.ir NB 




;*U")ER "0" PAGE 


ADDRESS REGISTERS 


UOPARO- 177660 




UOPARl- 177662 




U0PAR2" 177664 




U0PAR5- 177666 




U0PAR4- 17^670 




UCPAR5- 177672 




U0PAR6- 177674 




U0PAR7- 177676 




.ENOC 




.ENDC 




.IF NB 




;*SUPERVISOR "I' 


' PAGE DESCRIPTOR REGISTERS 


SIPORO- 172200 




SIPDRl- 172^02 




SIP0R2- 172204 




SIP0R3- 172206 




SIPDR4* 172210 




SIPDR5- 172212 




SIP0R6- 172214 




SIP0R7- 172216 




,IF NB 




;*SUPERVISOR "D' 


' PAGE DESCRIPTOR REGISTERS 


SDPDRO- 172220 




SOPOR 1- 17c322 




SDP0R2- 172224 




50PDR3- 172226 




SDPDR4- 172230 




SDPDR5- 172232 




SDPDR6- 172234 




SDPDR7- 172236 




.ENOC 




(♦SUPERVISOR "I' 


' PAGE ADDRESS REGISTERS 


SIPARO- 172240 




SIPARl- 172242 




SIPAR2- 172244 




SIPAR3- 172246 




SIPAR4- 172250 




SIPAR5" 172252 




SIPAR6- 172254 




SIPAR7- 172256 




.IF NB 




;*SUPERVISOR "D' 


' PAGE ADDRESS REGISTERS 


SDPARO- 172260 




SOPARl- 172262 




5DPAR2» 172264 
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MtMORt MANAGEMtNT UtFlNlTlUNb 



SEQ OOkA 



172500 
172302 
172304 
172306 
172310 
172312 
172314 
172316 



172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 



S0PAR3- 


1 /2266 


SDPAR4= 


1/22 70 


SDPAR5' 


1722/2 


SDPAR6- 


1722 74 


SDPAR7- 


172276 


.tNOC 




. F.NOC 




: *KERNEL 


.. "I" PAGE DESCRIPTOR REGISTERS 


KIPDRO- 


172300 


KIPORl' 


172302 


KIPDR2- 


172304 


KIPDR3' 


172306 


KIPDR4« 


172310 


KIP0R5- 


172312 


KIP0R6- 


172314 


KIPDR7- 


172316 


.IF m 




;*KERNEL 'D" PAGE DESCRIPTOR REGISTERS 


KOPDRO- 


172320 


KDPORl- 


172322 


K0P0R2* 


172324 


K0PDR3" 


172326 


KDP0R4- 


172330 


KDPDR5- 


172332 


KDPDR6- 


172334 


KDPDR7- 


172336 


.ENOC 




;*KERNEL "I" PAGE ADDRESS REGISTERS 


KIPARO- 


172340 


KIPARl- 


172342 


KIPAR2- 


17234A 


KIPAS3- 


1723^6 


KIPAR4- 


172350 


KIPAR5- 


172352 


KIPAR6- 


172354 


KIPAR7- 


172356 


.IF NB 




;*KERh4eL 


. "D" PAGE ADDRESS REGISTERS 


KOPARO- 


172360 


KDPARl- 


172362 


KDPAR2- 


172364 


KDPAR3- 


172366 


KDPAR4- 


172370 


KDPAR5- 


172372 


KDPAR6- 


1/2374 


K0PAR7- 


172376 


.ENDC 





[i, ' 



TSV.^ i;i Oh'M ARt AS MACRO M1?00 .-^O-MAR M 08:44 PACK 14 
TbVOS RF.GISThR AND PACKET Dhh INIT IONS 



SfcQ 00^5 



>;••> 




'iO 




41 




4.? 




4 5 




44 




4!:) 


000004 


46 


000060 


4 7 


177560 


48 


17756? 


4'1 


177520 


50 




bi 




W. 




s^ 




r^4 




bS 


lOCOOO 


St. 


040000 


^/ 


020000 


58 


010000 


r.9 


004000 


bO 


002000 


61 


001400 


bJ 


000200 


6."^ 


000100 


b4 


000060 


bS 


000016 


b^ 




67 




n8 




69 




70 




71 




7? 




7,^ 




74 


100000 


7S 


040000 


76 


020000 


77 


010000 


78 


004000 


79 


002000 


80 


001000 


31 


000400 


Hr' 


000200 


6.^ 


000100 


64 


000040 


85 


000020 


86 


000010 


87 


000004 


88 


OOOOOt? 


69 


000001 


90 




91 




9? 




9.^ 




94 




95 


100000 



.SBTTL TSV05 REGISTER AND PACKtT DtFlNlTlUNb 



SOME GENERAL EQUATES. 



ERRVEC"= 
niVEC- ■ 
TTICSR-> 
TTIBFR^- 
BDVPCR== 



4 

60 

17 7560 
17 756.-^ 
17 7520 



POINTER TO ERROR VECTOR TOR BUS TIME OUT 
INTERRUPT VECTOR TOR CONSOLE^ INPUT 
BUS ADDRESS OF CONSOLE INPUT 
CONSOLE INPUT DATA BUEFER 
BDVll PAGE CONTROL REGISTER 



BIT DEFINITIONS FOR TSSR REGISTER 



SC' 

BIE- 

5CE- 

RMR- 

NXM» 

NBA- 

HIAODR- 

SSR* 

OFL* 

FATERR" 

TERCLS« 



RIT14 

BIT13 

BIT12 

BITll 

BITIO 

BIT9!BIT8 

BIT? 

BIT6 

BIT4fBIT5 



SPECIAL CONDITION 

BUS INTERFACE ERROR 

SANITY CHECK ERROR 

MODIFICATION REFUSED 

NONEXISTANT MEMORY ERROR 

NEED BUFFER ADDRESS 

EXTENDED ADDRESS BITS 

SUB SYSTEM READY 

OFF LINE BIT 

FATAL TERMINATION ERROR CODES 



BIT3!BIT2!BIT1 j TERMINATION CODES 



BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 
(XSTO) 



XSOTMK- 


BIT15 


iTAPE MARK DETECTED 


XSORLS- 


BIT14 


iRECORD LENGTH SHORT 


XSOLET- 


BIT13 


; LOGICAL END OF TAPE 


XSORLL- 


BITl? 


t RECORD LENGTH LONG 


XSOWLE- 


BITll 


; WRITE LOCK ERROR 


XSONEF- 


BITIO 


jNON EXECUTABLE FUNCTION 


XSOILC- 


BIT9 


: ILLEGAL COMMAND 


XSOILA- 


BITS 


: ILLEGAL ADDRESS 


XSOMOT- 


PTT7 


(TAPE IN MOTION 


XSOONL- 


6 


J TRANSPORT ON LINE 


XSOIE- 


blT5 


1 INTERRUPT ENABLE 


XSOVCK- 


BIT4 


(VOLUME CHECK BIT 


XSOPED* 


BIt:^ 


(PHASE ENCODED DRIVE 


XSOWLK* 


BIl,' 


(WRITE LOCKED 


XSOBOT- 


BITl 


J BEGINNING OF TAPE 


XSOEOT- 


BITO 


(END OF TAPE 



BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 1 
(XSTl^ 



Xl.DLT - BIT15 



(DATA LATE 



TSV5 ill OBAl ARfAS MACRO M1?00 ^0-MAR-a4 08:44 PAGt 14-1 
TSV05 REGISTER AND PACKET DEFINITIONS 



N.:;: 



SEQ 00^6 



9b 


040000 


•"1 .' 


020000 


98 


01737b 


99 


000400 


100 


00000*2 


101 




10 j 




:o3 




104 




103 




106 


100000 


10/ 


040000 


108 


055400 


109 


002000 


110 


000200 


111 


000100 


112 


000077 


11? 


000007 


114 




115 




116 




117 




118 




119 


177400 


lc30 


000200 


131 


000100 


12.' 


000040 


l.M 


000020 


1?A 


000010 


l.'?5 


000006 


136 


000001 


1?" 




i?8 




i.'9 




1^0 




K^l 




1:^2 


100000 


1.^5 


040000 


134 


020000 


13S 


017400 


136 


000377 


15/ 




138 




139 




14(. 




141 




14P 




14.^. 




144 


OOOOob 


145 


000006 


146 




147 




148 




149 




1'jC 




151 




isie 





XI .SPARE- BIT14 

XI. COR - BIT13 

Xl.MBZ 

Xl.RBP 

Xl.UNC 



:N0T JSfcD 

{CORRtCTABLF DATA ERROR 

BIT12*BITli*BIT10*BXT9»BIT7*BIT6»BirbtBIT4fniT3*BIT2fBIT0 ; ALWAYS 

Blltt :RrAD BUS PARITY ERROR 

BITl lUNCOt^RECTABLE DATA OR HARD ERROR 



BIT DEPINITIONS TOR EXTENDED STATUS REGISTER 2 
(XST2) 

X2.0PM = BIT15 jOPERATION IN PROGRESS (TAPE MOVING) 

X2.RCE « BIT 14 jRAM CHECKSUM ERROR 

X2. SPARE*- BIT13fBIT12*BITll»BIT9*BIT8 jNOT USED BY TSV05 (ALWAyS = 0) 

X2.UCF » BITIO iWRITE CLOCK FAILURE (FIFO NOT EMPTIED Br TRANSPORT) 

X2.EXTF BIT7 ; IF WRITE CHAR CMD THEN - EXTENDED FEATURES ENABLED 

X2.BUFE - STT6 j IF WRITE CHAR CMD THEN = BUFFERING ENABLED 

X2.REV - '00077 ; IF WRITE CHAR CMD THEN =■ MICROCODE REVISION LEVEL 

X2,UNIT " tXT2*BITl*BIT0 : IF GET STATUS THEN = CURRENTLY SELECTED UNIT NO. 

f 

BIT DEFIN3TI0NS FOR EXTENDED STATUS REGISTER 3 

CXST3) 



X3.M0E 
X3. SPARE 
X3.0PI 
X3 REV 
X3,TRF 
X3.DCK 
X3.MBZ 
X3,RIB 



177400 
BIT7 
BIT6 
BITS 
BIT4 
BIT3 
BIT2*BIT1 
BTTO 



jMICRO-DlAGNOSTIC ERROR CODF 
NOT USED BY TSV05 
OPERATION INCOMPLETE 
REVE^'^SE 

TRANSPORT RESPONSE FAILURE 
DENSITY CHECK 
NOT USED ALWAYS 
REVERSE INTO BOT 



BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4 
(XST4) 

X4,HSP ■ BITIL. ,HICH SPEED 

X4.RCE - BIT14 jRETRY COUNT EXCEEDED 

X4.TSM - BIT13 j TRANSPORT SPECIAL MODE 

X4.MBZ » BIT12*BITH*BIT10*BIT9*3IT8 ;NOT USED ALWAYS 

X4.WRC - 000377 ; WRITE RETRY COUNT FIELD 



TSSR TERMINATION CODES (BIT 0-2) 



TSREJ- 3*2 
UNREC* 6 



DEVICE REGISTER OFFSETS 



;COMMANO REJECTED 
J UNRECOVERABLE ERROR 



1 / 



TSV05 REGISTER AND PACKKT DEFINITIONS 



SHO <JO>.r 



l!^? 


OOOOOC 


I '"-.4 


000000 


155 


OOOOCl 


156 


OOOOOl 


15: 


000002 


156 


000003 


159 




160 




Ibl 




16? 




163 


000003 


164 




165 




166 




167 




168 


000017 


169 


0OC013 


170 


000012 


iri 


OOOOll 


1/2 


000010 


17? 


000006 


1?4 


000005 


175 


000004 


176 


OOOOOl 


177 




178 




179 




180 




181 


100000 


18^ 


040000 


183 


020000 


184 


0100 'X) 


185 


007400 


186 


000200 


187 


000140 


188 


000037 


189 




190 




191 




192 


000000 


193 


000400 


194 


001000 


195 


002000 


196 


002400 


197 




198 




199 




«?00 




?.0\ 


000167 


202 


000200 


203 


000201 


204 


000210 


205 


000215 


206 


000234 


207 




208 




209 





TSBA-' 

TSDB- 

TSBAH' 

TSOBH' 

TSSR-' 

TSSRH- 



iTSDB/TSBA RF.GISTF^R 
jTSOB/TSBA REGISTER HIGH RyTF 

iTbSR rf:gister 

I TSSR rf.gistfr high BYie. 



TSDB ADDRESS BIT DEFINITIONS 

■ BITI^BITO lADDRESS BITS 17:16 ARE IN 1:0 



A1716 



I ♦ 



COMMAND DEFINITIONS 



p.getstat 




17 


iGET status 


P.INIT 




13 


(INITIALIZE 


P . CONTROL 




12 


; CONTROL COMMAf^S 


P.rORMAT 




11 


(FORMAT 


P. POSITION 




10 


jPOSITION 


P.WRTSUB 




6 


iSUeSYSTEM WRITE 


P. WRITE 




5 


iWRITE 


P.URTCHAR 




4 


(WRITE CHARACTERISTICS 


P. READ 




1 


(READ 



( COMMAND PACKET HEADER WORD BIT DEFINITIONS 



( - 



P.ACK • BIT15 (BUFFER AVAIL FOR CONTROLLER 

P.CVC - BIT14 (CLEAR VOLUME CHECK 

P.OPP - BIT13 (REVERSE SEQUENCE OF DATA BITS 

P.SWe ■ BIT12 (SWAP BYTES IN MEMORY 

P. MODE - BITll!BIT10!BIT9!BIT8 (EXTENDED COMMAND MODE FIELD 

P. IE -BIT? (INTERRUPT ENABLE 

P.FMT- BIT6!BIT5 (PACKET HEADER TYPE (ALWAyS-0) 

P.CMO - 37 (MAJOR COMMAND FIELD 



I ♦ 

1 CONTROL COMMAND MODE CODES 
1 - 



PC. RELEASE 
PC. REWIND 
PC.NOOP 
PC.IEREW 
PC. ERASE 



0*256. 
1*256. 
2*2S6. 
4*256. 
5*256. 



(RELEASE BUFFER 
(REWIND 

(NO-OP 

(REWIND IMMEDIATE INTERRUPT 

(SECURITY ERASE 



( 



J CONTROLLER RAM DEFINITIONS 



RMCHBEG • 167 

RMCHEND - 200 

RMPKTBEG- 201 

RMPKTEND- 210 

RMMSGBEG- 215 

RMMSGEND- 234 

I • 

( 

iREGIjTER DEFINITIONS IN THE MESSAGE BUFFER 



(CHARACTERISTICS 10 DATA BEGIN RAM ADDRESS 
(CHARACTERISTICS 10 DATA END RAM ADQR&SS 
(COMMAND PACKET BEGIN RAM ADDRESS 
(COMMAND PACKET ENC RAM ADDRESS 
(MESSAGE BUFFER BEGIN RAM ADDRESS 
(MESSAGE BUFFER RNO RAM ADDRESS 
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TSVO? REGISTER AND PACKtT DfcHNiTlONb 
3W 



'jEfj oo;>8 



c:u 




^^i.;: 




C.1? 


000006 


f?14 


000010 


.n^i 


000012 


^"16 


000014 


..17 


000016 


J18 




.■n9 




2?.0 




2? I 




222 




221 




22A 




22"^ 


000002 


226 


000004 


227 


000006 


228 




229 


000010 


P50 




^51 




232 




25?, 




254 


oooooo 


235 


000001 


236 


000002 


237 


000004 


238 




239 




240 




241 




242 


OOOOOO 


243 


000001 


244 


000002 


245 


000003 


246 


000004 


247 


000005 


248 


000006 


249 


000007 


250 


000010 


25i 


OOOOll 


252 


000020 


253 


000021 


2S4 


000022 


255 


000023 


256 


000024 


257 




258 




259 




260 




261 


000200 


262 


00 01 00 


263 


00)040 


264 


000020 


265 


000010 


aee 


000004 



XS70-- 


6 


x^ri-- 


6. 


■■c^r2-- 


10 


<SV3-- 


i;? 


XST4-« 


14 



iFXTENOFO 
jtXTENDtO 
lEXTFNDEO 

lf:yTKNOLD 
(EXTENDED 



STATUS 
STATUS 
STATUS 
STATUS 
STATUS 



REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 



(WORD 
CWORD 
C WORD 
(WORD 
(WORD 



4) 

6) 

n 

8) 



t ♦ 



jOEFSETS TO WORD LOCATIONS IN PACKET DEEINITIONS 



; - 



PKLOW 
PKHI 
PKBCNT « 

EXBCNT-10 



iLOW OPOER CHARACTERISTIC DATA POINTER 
IHIGH ORDER CHARACTERISTIC DATA POINTER 
INUMBER OF BYTES IN DATA PACKET 

iNUMBER OF BYTES IN EXTENDED DATA PACKET 



[DATA 
I - 



PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND 



BSELO 
BSELl 
SEL2 
SELOATA 




1 
2 

4 



iBrTE 
iBYTE 
I WORD 
I WORD 



iBSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND 



PW.NOP 


■ 


r.;. RDRAM 


■ 1 


l^W.WTRAM 


• 2 


■»W.RFIFO 


« 3 


PW.WFIFO 


■ 4 


PW.ROSTAT 


■ 5 


PW.WCTL 


■ 6 


PW.WFMT 


■ 7 


PU.UMISC 


' 10 


PW.WNPR 


• 11 


PW.D22 


20 


PW.Dll 


21 


PW.D13 


■ 22 


PW.N013U 


• 23 


PW.RDEXT 


■ 24 



(NO-OP 

(READ RAM 

I WRITE RAM 

iREAD FIFO 

(WRITE FIFO 

(READ STATUS 

(WRITE TAPE CONTROL 

(WRITE TAPE FORMAT 

(WRITE MISCELLANEO-JS 

(WRITE NPR CONTROL 

(00 MICROTEST 22 

(DO MICROTEST 11 

iOO MICROTEST 13 

tDISABLE MICROTEST 11 AND 13 

(READ EXT. TAPE STATUS (NOT SUPPORTED BY ALL TRANSPORTS 



I ♦ 



J BSELl CODES FOR WRITE TAPE CONTROL 



WC.IFAD 


• b:t7 


iIFAD - 


WC.IOTAD 


- BITC 


lITADO 


WC.IITAD 


■ BITS 


iirADl 


WC.I5RESV 


- BIT4 


IIRESV5 


WC.IREW 


- BIT5 


tIREU 


WC.IRWU 


« BIT2 


llRWU 



FORMATTER ADDRESS 

- TRANSPORT ADDRESS BIT 

- TRANSPORT ADDRESS BIT I 

- RESERVED *5 

- REWIND 

- REWIND AND UNLOAD 



TSV^ ..L OBAl ARt AS MACHO Ml.HK) .^0 MAK -H4 0A;4q PAue 14 4 

TbVOS REGISTtR AND PACKt.T UtF INlTlON'j 



iKCi 00>9 



.^6 : 


000002 


.^f^8 


000001 


^69 




^70 




?71 




.V.^ 




?"5 


OC'0200 


r.'4 


000100 


J 75 


000040 


^76 


000020 


277 


000010 


278 


000004 


279 


000002 


280 


000001 


281 




282 




283 




284 




285 


000200 


286 


000020 


287 


000010 


288 


000006 


289 


000001 


290 




291 




292 




293 


00000") 


294 


000002 


295 


000004 


29b 


000006 


297 




298 




299 




300 


000200 


?01 


000100 


302 


000040 


303 


000020 


304 




305 




306 




307 




308 


0O02O0 


309 


000100 


310 


000040 


311 


000020 


312 


000010 


313 


000004 


314 


000003 


315 


100000 


316 


040000 


317 


020000 


318 


010000 


319 


004000 


320 


002000 


321 


00100c 


322 


000400 


525 


000200 



wc.ue.N 

WC . IGO 



OITl 
BITO 



; IF EN 
I GO 



rORMArTF.R e.NABl.F. 



BSEl 1 COObS FOR WRITE roRMAI 



Wr .IHISP 
UF. lURT 
WF . IREV 
WF.TWFM 
WF.IEOIT 
WF.IERASE 
WF.I3REGV 
WF.I4RESV 



BIT7 
BIT6 
BIT5 
BIT4 
BIT3 
BIT2 
BITl 
BITO 



ilHiSP 


- HIGH SPEED 


ilWHT 


- WRITE 


J IREV 


- REVERSE 


iIWFM 


- WRITE FILE MARK 


lIEDIT 


- EDIT 


jIERASE 


- ERASE 


(1RESV3 


- RESERVED *3 


(IRESV4 


- RESERVED M 



BSELl CODES FOR WRITE MISCELLANEOUS SUBCOMMAND 



MS. EXT 
MS.RSFIFO 
MS.RSTAPE 
MS. ATTN 
MS.RSD 

MS. ATTN SUBCODES 



BIT7 

BIT4 

BIT3 

BIT2!BITl 

BITO 



MSA. NOT ■ 0»2 
MSA. VOL ■ 1*2 
MSA.NRAM- 2*^2 
MSA.FRAM- 3*2 



; INVERT SENSE OF EXTENDED FEATURES SWITCH 
jRESET FIFO AND INPUT PARITY ERRORR 
iRESET TAPE STATUS IN 2 FLIP-FLOPS 
lATTENTION TRIGGER FIELD 
;RESET TIMER A.B THEN DELAY TIMES IN SEL2 



iNO-OP (NOTHING TRIGGERED) 

(SIMULATE ON-LINE/OFF-LINE TRANSISTION 

jFOnCE NON-FATAL RAM ERROR (FORCES ERRCODE 54) 

jFORCE FATAL RAM ERROR (CAUSES SCt TO SET) 



WRITE SUBSYSTEM WRITE NPR BSELl BIT DEFINITIONS 



NP.IR 
NP.OUT 
NP.LOOP 
NP.WRP 



BIT7 
BIT6 
BITS 
BIT4 



(INTERRUPT REQUEST (0-1 TRANSITION) 

(TAPE DATA DIRECTION OUT (0- IN) 

(ENABLE TRANSPORT LOOPBACK 

(WRITE CORRECT PARITY (SET-0 TO WRITE WRONG) 



READ STATUS MESSAGE BUFFER BIT DEFINITIONS 



52. DIM 
S2.ILW 
S2.0UTRDY 
S2.INRDY 
S2.ATIMR 
S2.BTIMR 
S2.UNDEF 
51. PAR IN 
S1.I2RESV 
IIRESV 
lEOT 
IIOENT 
ICER 
IFMK 
SI.IHEH 
S0.I5PEED 



SI 
51 
SI 
51 

SI 



■ BIT? 


WORD 09 BYTE 


2 


DATA IN MISS 




- BIT6 






ILW H 




• BITS 






OUT RDY h 




- BIT4 






IN ROY H 




- BIT3 






TIMER A :lAG 


H 


- BIT2 






TIMER B FLAG 


H 


- BIT1»BIT0 


(UNDEFINEC ^ 








- BIT15 


WORD 08 BYTE 


1 


PARIN H 




- BIT14 






IRESV2 




- BIT13 






IRESVl 




- BIT12 






lEOT L 




• BITll 






IIDENT H 




- BITIO 






ICER H 




• BIT9 






IFMK H 




• BIT8 






IHER H 




• BIT? 


WORD flS BYTE 





ISPEED H 
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SfQ 0050 



5?4 
3?S 

326 

J28 

550 
.^31 
55^ 
533 
534 
35^ 
3 56 
35 7 
538 
339 
340 
341 
342 
54 3 
344 
545 
346 
34 7 
348 
349 
350 
551 
352 
355 
554 
355 
556 
557 
558 
559 
560 
361 
362 
3C3 
564 
365 
366 
56 V 
368 
369 
5 70 
371 
372 
373 
i74 
375 
376 
377 
378 
379 
380 



000100 
000040 
000020 
000010 
000004 
000002 
000001 



so 


IROY 




- BIT6 


50 


lONL 




- RTT5 


50 


ILDP 




- BIT4 


SO 


IDBY 




- BIT5 


SO 


IRWD 




■- 6112 


50 


I^'BY 




- BITl 


50 


IFPT 




" BITO 






.SBTTL 


SPECIAL M 


; ♦ 

;SAVE GENERAL REGS 1 TO 5 






. MACRO 


SAVREG 






JSR 


RS.REGSAV 






.ENDM 





MACROS 



t 


IRDr 


t 


lONL 


( 


II DP 




lOBr 




IRWD 




ire I 




IFPT 


ND OPDEFS. 





L 



; MrC^O TO FORCE AN ERROR 

! MAC*- rORCERROR TAG , NOTSSR 

.NLIS^ 

.IIF I^F LISTALL. .NLIST 

.LIST 

.IF B NOTSSR 

MOV TSSRCR5).R1 
.ENOC 

MOV FORCER. FORCER 

BNE TAG 
.NLIST 

.IIF NDF LISTALL. .LIST 
.LIST 
.ENOM 



MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS 
WILL EXIT TO A LABEL IF FORCER IS NEGATIVE 
SO TO FORCE ERRORS AND EXIT ON 1 ERROR SET 
FORCER TO 177777 
TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1. 



;READ TSSR 

;IS FORCER SET? (LEAVE C BIT ALONE) 
J BR IF YES 



FORCEXIT 



TAG 



.MACRO 

.NLIST 

.IIF NDF LISTALL. .NLIST 

.LIST 

MOV FORCER. FORCER 

BMI TAG 
.NLIST 

.IIF NOF LISTALL. .LIST 
.LIST 
.ENOM 

: MACRO TO INCREMENT ERROR COUNTS 

.MACRO NEXT.ERRNO 

.NLIST 

; J i.IIF NDF LISTALL. , NLIST 



;IS FORCER NEGATIVE? 
(BR IF YES 



002170 000000 



TSV5 lU OtlAl ARfAS MACRO HlPOO 

SPECIAL MACROS AND OPOtKb. 

381 

38*.^ 

383 

584 

385' 

58b 

587 

*88 

589 

390 

591 

39^ 

595 

594 

39-j 

396 

397 000000 

598 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

416 

419 002172 

420 002174 

421 002176 

422 002200 

423 002202 

424 002204 

425 002206 

426 002210 

427 002212 

428 002214 

429 002216 
450 002220 

431 002222 

432 002224 

433 002226 
454 002230 
435 002232 
456 002234 
437 002274 



000000 
000000 
000000 
000000 
000224 
000200 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

cooooo 

000000 
000000 
000000 

000000 



^^O-MAR-84 08:44 PAGK 14-6 



ERRNO'ERRNOtl 
jj; .IIF NOF LISiTALL. .LIST 
.LIST 
.ENDM 



SEQ 0031 



; MACRO TO PEPrORM XOR 


.MACRO 


XOR 


MOV 


A.~rSP) 


BIC 


B.CSP) 


BIC 


A.B 


BIS 


CSP)*,B 


.ENDM 





A,B 



EN-0 ; INITIALIZE ERROR NUMBER 

.SBTTL KORCER - FORCE ERROR FLAG 



THE FOLLOWING LOCATIONS MAl BE PATCHED BY THE USER 
TO OBTAIN THE RESULTS DESCRIBED FOR EACH. 



FORCER:: ; FORCE TYPE ALL HARD ERRORS CI^HE ONES CALLED 

1 - BY THE MACRO "IFERROR"). AN ERROR NEED NOT - 
; - EXIST, JUST ASSUME AND TYPE THE MES^'AGE. 
.SBTTL GLOBAL DATA SECTION 



THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
IN MORE THAN ONE TEST. 



THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME. 
SINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE. 



EPRTSW:: 

UNITN: : 

QVP: I 

CSRADDR: : 

IVEC: : 

IPRI:: 

TSTCNT: 

LOOPCNT 

DEVCNT: 

FATFLG: 

INTRECV 

EXTFEA: 

BENB5W: 

EXPD: 

RECV: 

ERRHI 

ERRLO 

RAMDAIA: : 

RAMSIZ:: 



WORD 


I 


WORD 


J 


WORD 


1 


WORD 


i 


WORD 


224 t 


WORD 


PR 104 I 


WORD 


t 


WORD 


1 


WORD 


1 


WORD 


I 


WORD 


I 


WORD 


I 


WORD 


1 


WORD 


I 


WORD 


I 


WORD 


I 


WORD 


1 


BLKW 


16. i 


WORD 


; 



(PRINT SWITCH 

jUNIT P UNDER TEST. 
QUICK VERIFY FLAG. 
ADDRESS OF CSR FOR CURRENT DEVICE 
INTERRUPT VECTOR 
INTERRUPT PRIORITY. 
NUMBER OF TESTS RUN IN THIS PASS 
REMAINING ITERATION COUNT FOR TEST 
NUMBER OF DEVICE UNDER TEST 
SET IF FATAL ERROR IS DETECTED IN TEST 
SET IF TAPE INTERRUPT WAS RECEIVED 
EXTENDED FEATURES SOFTWARE SW O-OfF;l-0N 
BUFFER ENABLE SWITCH SW 0-OFF|1-ON 
EXPECTED RAM DATA FOR PRAMPKT ROUTINE 
RECEIVED RAM DATA FOR PRAMPKT ROUTINE 
HIGH ADDRESS MEMORIr ERROR 
LOW ADDRESS MEMORY ERROR 
DATA READ FROM RAM PACKET OR MESSAGE BUF 

jRAM DATA SIZE FOR PRAMPKT ROUTINE 



AREA 



TSV? 



- Gl OtlAU ARfAS MACRO Hl^OO £?0-HAR-a4 


08:44 PAGK 14-7 






AL DATA StXTION 












4-^8 OOL^?76 


000000 RCVHIAOO:: 


.WORD 





jRECElVED BUFFER HIGH ADDRESb 


479 002300 


000000 RCVLOADD: : 


.WORD 





:RECEIVED BUFFER LOW ADDRESS 


440 002302 


000000 COUNT: 




.WORD 





;TEST COUNT PATTERN 


441 002504 


000000 DATA: : 




.WORD 





{TEST DATA 


442 002506 


000000 TSTFLAG:; 


.WORD 





I TEST FLAG WORD 


445 002510 


000000 TSTPTR 


• 


.WORD 





; TSTBLK POINTER 


444 002512 


000000 PRMNO : 




.WORD 





I PRINT ROUTINE TEMP 


445 002314 


EXPMSG 


, 


.BLKB 


100. 


jEXPECTED MESSAGE BUFFER DATA 


446 002460 


RECMSG 


: 


.BLKB 


100. 


iRECElVED MESSAGE BUFFER DATA 


44? 002624 


TMPBFR 


; 


.BLKB 


80, 


; TEMPORARY STORAGE FOR PRINT 


448 

449 
450 






.SBTTL 


rSTBLK 


- TEST 


DATA TABLE 




4- 










451 














452 




THIS TABLE CONTAINS TEST DATA 


USED IN SEVERAL TESTS 


453 














454 
455 
456 




IN SEQUENCE THE DATA IS: 








ALL ZEROS 






457 






ALL ONES 






458 






WALKING 


ONES 






459 






WALKING 


ZEROS 






460 
461 
462 






ALTERNATING ONES AND ZEROS 














463 














464 002744 


TSTBLK 


. 








46b 002744 


000000 




' . WORD 







jALL ZEROS 


466 002746 


177777 




.WORD 


177777 




;ALL ONES 


467 002750 


000001 




.WORD 


BITO 




;DATA FOR WALKING ONES 


468 002752 


000002 




.WORD 


BITl 






469 002754 


000004 




.WORD 


BIT2 






470 002756 


000010 




.WORD 


BIT3 






471 002760 


000020 




.WORD 


BIT4 






472 002762 


000040 




.WORD 


BITS 






475 002764 


OOOIOO 




.WORD 


BIT6 






474 002766 


000200 




.WORD 


Bir7 






475 CO2770 


000400 




.WORD 


BITS 






476 002772 


001000 




.WORD 


BIT9 






47/ 003774 


002000 




.WORD 


BITIO 






478 00-776 


004000 




.WORD 


BITll 






479 005000 


010000 




.WORD 


BIT12 






480 003002 


020000 




.WORD 


BIT13 






481 003004 


040000 




.WORD 


BIT14 






482 003006 


lOOOOO 




.WORD 


BIT15 






485 003010 


177776 




.WORD 


tCBITO 




iDATA FOR WALKING ZEROS 


484 005012 


177775 




.WORD 


tCBITl 






485 003014 


177773 




.WORD 


tCBIT2 






486 003016 


177767 




.WORD 


tCBIT3 






487 003020 


177757 




.WORD 


tCBIT4 






488 003022 


177737 




.WORD 


tCBIT5 






489 003024 


177677 




.WORD 


tCBIT6 






490 003026 


177577 




.WORD 


tCBIT7 






491 005030 


177377 




.WORD 


tCBITB 






492 003032 


1767?/ 




.WORD 


tCBIT9 






493 003054 


175777 




.WORD 


tCBITlO 






494 003036 


173777 




.WORD 


tCBItll 







SEQ 00?2 



TSV:< uLOBAl ARt AS MACRO H1?00 u^O-MAR-aA 08:44 PAGF. H -8 

TSTBLK TE.ST DATA TARl.L 



H .0 



SfcCJ 0055 



495 
496 
497 
498 
499 
5 0O 
'301 
S02 
'■>03 
504 
505 
506 
507 
508 
509 
510 
511 
51^ 
513 
514 
515 
516 
517 
513 
519 
520 
521 
52? 
523 
524 
525 
526 
527 
528 
529 
530 
551 
532 
533 
534 
535 
536 
537 
558 
5 59 
540 
541 
54? 
543 
544 
545 
546 
54 7 
548 
549 
550 
551 



003040 
003042 
005044 
003046 
005050 
003052 



003054 
005064 



003104 

003106 

003110 
003112 
003114 
003116 
003120 
00312? 
003124 



003126 
003130 
003132 
003134 
003136 
005140 
003142 
003144 
003146 
003150 
003152 
003154 
003156 
003156 
003160 
003162 
003164 
003166 
003170 



167??/ 
157777 
137777 
C77777 
125252 
052525 
003054 



000000 
000000 



000000 

000000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 



000000 
000000 
C'X>000 

c-:*ooo 

0>0000 

000000 
OOCaXK) 
002000 
000000 
000000 
000000 
000000 

000000 
000000 
000000 
000000 
177777 



100000 
000000 



000000 
000000 



TBLEND 



.WORD 


tCBITl? 


.WORD 


tCBIT13 


.WORD 


tCBiri4 


.WORD 


tCBITlS 


.WORD 


125252 


.WORD 


052525 



;ALTEnNATING ONf.G, ^EROS 

: ALTERNATING ONES. ZhRO OPPOSTTh FROM ABOVE 



.SBTTL GLOBAL ENVIRONMENT STORAGE 
1 STORAGE FOR DEVICE REGISTERr, 



DUMMY: 

DUFLG: : 

NCDEV: : 

TEMPI:: 
rEMP2: : 
XXCOMM:: 
TREE: : 
^RESIZ: : 
f REEHI: 
KTFLG: : 



0,100000.0.0 iDUMMY DEVICE REGISTERS... 
0,0,0,0,0,0,0,0 

i...FOfi MULTI-UNIT CHECKUl'T. 



. WORD 

.WORD 



.WORD 



KTENABLE:: 

NXMFLG 

NXMLO 

NXMHI 

f2JA: 

T23B: 

T3BF-LG 

PST32W 

SIFLAG 

BAODAT 

GDDAT: 

LOOPFl 

CTAB:: 

CTABM:: 



.WORD 

.WORD 

.WORD 

.WORD 

.WORD 



.WORD 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

.WORD 
.WORD 
.WORD 

.WORD 
.WORD 

















2000 














-1 



; "DROPPED UNIT" FLAG. 
(INHIBITS CODE IN "CLEAN-UP", 
jFLAG TO SAY NO DEVICE. 

I SOME TEMP LOCATIONS. 

jXXDP* COMM BLOCK POINTER. 
;1ST FREE MEMORY ADDRESS... 
J . . .AND SIZE (IN WORDS). 
(LAST WORD IN FREE SPACE 

iKTU, MEM AVAIL FLAG - 

i- .WORD - <24K OR NO KT - 

t- NZ - >^4K AND KT. 

I SET BY TEST ROUTINES TO FLAG >28K UNDER 

WE CAN TEST CLEARED OTHERWISE 

ADDRESS BI^S 

ADDRESS BITS "^OR DAL'S 16-21 

FLAG 

FLAG 
FLAG to 



(SET IF 

;NXM LO 

iNXM HI 

ill/2SA 

;11/23B 

iTEST 3B 

t32U BLOCK ADDRESS FOR 32K START 



TEST 



CTABE: : 
ERROR STATISTICS TABLE (1 WORD 



003170 



jACTUAL DATA 
;EXPECTED DATA 

(CONFIGURATION TABLES, 
i CONFIG WORK. 



J END OF MEM TABLE. 
PER UNIT), 64 UNITS MAX: 





100000 

lOXXXX 

160000 

160001 

14XXXX 



UNIT NOT TESTED 

UNIT ONLINE. NO ERRORS 

UNIT ONLINE. ENCOUNTERED XXXX E'lRORS 

UNIT DROPPED. NON-EXISTENT DEVICE REGISTER 

UNIT DROPPED, NOT IDLE AT START 

UNIT DROPPED. ENCOUNTERED XXXX ERRORS 



ERTABL: 



•BLKW 64. 



TSV.^ i;i iirw\l ARIAS MACRO NU^OO JO-MAR 04 QUiAA PtXiyV \A 9 

GLOBAL ENVlRONMtNT STO^^AGt ^^^ ^^"^^ 

55^ 003370 OOOCOO rRFAOM .WORD 

554 00537^ 000000 SKIPT: .WORD jl^SKIP '_,UJTtSI O-NO 'ji^LP Of- SUBTEST 



TSV.*; ^ vn ^RAl ARt.AS 
GLOBAL TEXT MESSAGtS 

S6C 

565 
566 
567 



MACRO Mlc^OO c)0"MAR-an 0«:44 PACt. 15 



-■DrQ 0055 



568 
589 
590 
591 
592 



594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
^19 
620 
621 
622 
623 
624 
625 
626 
627 



0053/4 
003374 
003374 



003402 
003402 
003402 



003476 
003516 
003536 
003541 
003545 
003551 
003555 
003561 
003565 
003572 
003577 
003603 
003607 
003614 
00 362 i. 
003626 
005633 
003640 

003646 
003701 
003734 
003773 
004014 
004054 
004113 
004117 
004146 
004211 



124 



052 



003536 
00357 7 
123 
102 
123 
122 
life 
116 
102 
102 
123 
117 
102 
102 
102 
102 
102 
102 

124 
124 
040 
045 
045 
045 
045 
040 
040 
045 



123 



052 



003541 
003603 

103 
111 
103 
115 
130 
102 
111 
111 
123 
106 
111 
111 
111 
111 
111 
HI 

125 
123 
040 
101 
101 
101 
116 
040 
040 
116 



126 



052 



003545 
003607 
000 
105 
105 
122 
115 
101 
124 
124 
122 
114 
124 
124 
124 
124 
lc4 
124 

123 
123 
116 
040 
040 
040 
045 
125 
111 
045 



.SBTTL GLORAL TEXT MF^^^HAGF^) 

■ ♦ 

THL GLOBAL TEXT SECTION CONTAINS rORMAT STATfMrNlb. 
MESSAGED, AND ASCII INrORMATION THAT ARE USEU IN 
MORL THAN ONE TEST. 



;NAMES OF DEVICES SUPPORTED 



OEVTYP <TSV05^ 
L$DVTYP: : 

.ASCIZ liTSVOSii 
.EVEN 



iTEST DESCRIPTION 

OESCRIPT <**♦* TSV05 LOGIC DIAGNOSTIC 



LJDESCt : 



.ASCIZ /**♦♦ TSV05 LOGIC DIAGNOSTIC 
.EVEN 



jBIT TO ASCII CONVERSION FOR T5SR REGISTER 



CHECK TRANSPORT IK ERROR *-*• 
CHECK TRANSPORT IF ERROR ♦***/ 



U.2t,3J.4*.5$,6$.7J.e$ 
9$,10*.ll$.12$.13$.14$.lb$,l6$ 



TSSRBIT:: .JORD 

.wo;=tD 

II: .ASCIZ 'SC 

2i: .ASCIZ 'DIE' 

3$: .ArXIZ 'SCE' 

4$: .ASCIZ 'RMR' 

5i: .ASCIZ 'NXH' 

61: .ASCIZ 'NBA' 

7i: .ASCIZ 'BIT9' 

8$: .MSCIZ 'BITS' 

9t: .ASCIZ ' SSR' 

101: .ASCIZ 'OFL' 

HI: .ASCIZ 'BIT5' 

121: .ASCIZ 'BIT4' 

131: . ASCIZ 'BIT3' 

14»: .ASCIZ 'BIT2' 

15$: .ASCIZ 'BITl' 

161: .ASCIZ 'BITO' 

.EVEN 

SFIERR: .ASCIZ ' TSSR ERROR AFTER SOFT INIT' 

SFHERR: .ASCIZ 'TSSR ERROR AFTtR BUS RESET' 

NXH: .ASCIZ / NON-EXISTANT DEVICE REGISTER/ 

NXRX: .ASCIZ /#A ADDRESS; i<06/ 

TSSX: .ASCII /#A TSBA.TSSR EXPD: i<06^A >n6i<N/ 

.ASCIZ /i<A TSOA.TSSR REC'D: i*06*A.ii06/ 

FUSI: .ASCII /*NKA/ 

USI: .ASCIZ / UNEXPECIEO INTERRUPT/ 

NSI: .ASCIZ / INTERRUPT EXPECTED. NOT RECEIVED/ 

FNOINTR; .ASCII /KNKA/ 



1/ 



GLOBAL TEXT MESSAGES 



MACRO M1200 <i^0-MAR-84 08:44 PAGt 15-1 



SEQ <J05€, 



6?8 
6;:'9 
630 
651 
632 
633 
634 
63^; 
b36 
63/ 
638 
639 
640 
641 
642 
645 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
65/ 
658 
659 

660 



661 
662 



663 
664 
665 
666 
667 
668 
669 
670 
671 
672 



004215 
004252 
004274 
004531 
004403 
004453 

004523 

004524 
004527 
004563 
004637 
004 741 
005007 
005052 
005107 
005202 
005274 
005366 
005454 
005550 
005641 



005732 
005732 
005732 
005752 
005736 
005 M2 
005746 
005750 
005752 
005/56 
005762 
005762 
005762 



005764 
005766 
005770 
0057 72 
005776 
005776 
006002 
006006 



040 
040 
045 
040 
040 
040 

000 
045 
045 
045 
045 
122 
040 
127 
124 
124 
106 
105 
045 
045 
045 



013746 
012746 
012746 
010600 
104415 
062706 
004737 



104425 



005727 
000000 
001402 

004777 

012/46 
012746 
010600 



040 
040 
101 
040 
040 
040 



116 
101 
116 
101 
101 
04 C 
122 
125 
123 
101 
122 
116 
116 
116 



003106 
003? ;5 
000002 



000006 
005764 



177770 

004524 
OOOOOl 



116 
.11 
040 
042 
042 
042 



000 
040 
045 
040 
115 
103 
111 



1^4 
122 
045 
045 
045 



NOINTR 

I FAULT 

INTX: 

NOINIT 

NSINTT 

BRINIT 

NUL: 

NULCR: 

EXPGOT 

EXPGT2 

DUAD12 

PKTRAM 

SCME: 

URTM5G 

WRTERR 

ROERR : 

SCHERR 

RETERR 

NOMEM 

M8136 

M8189 



ASCIZ 
ASCIZ 
ASCii' 
ASCI/ 
ASCIZ 
ASCI/ 

ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

EVEN 

SBTTL 



/ NO INTERRUPT WAS GENERATED/ 

/ INTERRUPT FAULT/ 

/*A CPU PC: K06i*A TSBA: i<06/ 

/ "BUS-INIT" DIDN'T INITIALIZE CONTROLLER/ 

/ "SOFT-INIT" DIDN'T INITIALIZE THE DPU/ 

/ "BUS-RESET" DIDN'T INITIALIZE THE DPU/ 

// 

/iif\ EXP'O: ii06#A. REC'D: K06/ 

/|<N#A EXP'D: i<06KA, i<06i<Ni<A REC'D: i^OKA . #06/ 

/*A REGCW) WRITTEN TO: f<06i^A REG(R) RtAD; EXP'D: irf06i<A, RtC'D: ^06/ 

.ASCIZ 'HAM Contents Do Nor Mntch Packet Sent' 

/ CONFIG DOESN'T MATCH MFG. MASTEP/ 

•WRITE CHARACTERISTICS Failed' 

' TSSR Incorrect After WRITE Command, More Bits Set Than SSR' 

• TSSR Incorrect After READ Coffwnand, More Bits Set Than SSR' 

'FATAL ERROR IN SUBTEST - CHECK TAPE .CABLES. TRANSPORT etc' 

•ERROR IN SUBTEST - WRITE DATA RETRY FIVE "^IMES FAILED' 

'liN^A ***** NO NXM ADDRESS - -CANNOT TEST NXH TIMEOUT. '••***N' 

'#N#A ♦♦♦♦♦♦♦***«♦♦♦*♦♦ tl/23A SYSTEM **********-*****a#N' 

•^N«A ***************** 11/23B SYSTEM ♦♦*******++******i<N' 

GLOBAL ERROR REPORT SECTION 



THE GLOBAL 
CALLS THAT 
ASCII TEXT 



EHROP REPORT SECTION CONTAINS THE PRINTS AND PRINTX 



ARE USED IN 
STRINGS ARE 



MORE THAN ONE TEST. 

FOUND IN THE GLOBAL TEXT SECTION. 



NXRERR: 



BGNM5G NXRERR 



L 10002 



PRINTX 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

JSP 

ENOMSG 

TRhP 



^WXPX.NODGV 
NOOEV, -csp; 
WXRX, (SP) 
02.^ CSP) 
SP.RO 
CiPNTX 
06, SP 
PC. EXTEND 



C$MSG 



iNON-EXISTANT DEVICE REGISTER. 
iNODEV ' NEXM ADDRESS. 



; PRINT EXTENSION IF REQUIRED. 



THIS ROUTINE APPENDS A L»NIQUt EXTENSION (IF REQUIRED) 
TO ANY OF THE ABOVE ERROR SIGNATURES. 



i - NO EXTENSION. 



EX VEND : 


T5T 


(PC)* 


EXTA: 









DEQ 


1$ 




jSR 


PC.SEXTA 


15: 


PRINTX 


^>NULCR 




MOV 


*NULCR.-^C5P) 




MOV 


*1. (SP) 




MOV 


SP.RO 



APPEND EXTENSION TEXT. 
PRINT A BLANK LINE 



.J 
TSV.^ r,l OBAl ARt AS MACRO Hi^OO JO-MAR -84 Qi\'.AA PAClh 1^-^ 

GLObAL bRROR REPORT SbCTION ^^^'^ ^^''^ 

006010 10441'> TRAP CiPNTX 

00601? O6:r/oc-. 000004 auu ^'m.sp 

675 006016 000^:07 RTS PC 






TSV5 - GLOrw\L ARE'.AS MACRO M1200 ^O-MAR-a^l Oa;44 PAfilr. 16 

PRITSSR - PRINT TSSR CONTFrjTS 



SFQ 00.58 



6Vl-> 
676 
67? 
678 
679 
6U0 
b81 

t.83 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 



697 
698 
699 
700 



701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 



006020 
006020 
006024 
006026 
006026 
006030 
006034 
006040 
006042 
006044 
006050 
006052 
006056 
006060 
006060 
006064 
006070 
006072 
006074 
006100 
006102 
006106 
006110 
006114 
006120 
006122 
006124 
006126 
006130 
006132 
006134 
00613G 
0061^0 
006146 
006150 
006152 
006154 
006154 
006160 



010104 

010446 
012746 
012746 
010600 
104414 
062706 
010400 
004737 
103410 

012746 
012746 
010600 
104415 
062706 
010403 
042703 
001434 
012702 
012701 
005703 
001413 
000241 
006103 
103006 
011100 
112022 
001376 
112762 
005721 
000763 
105042 

012746 
012746 



.SBTTL. PRITSSR - PRINT TSSR CONTtNTS 

* 

ROUTINE TO DISPLAY THE CONTENTS, AND DIT DEFINITIONS, OF 
THE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLr 
BY A MESSAGE PRINTING ROUTINE 

INPUTS: 

Rl CONTENTS OF TSSR 
SUBORDINATE ROUTINES: 

CHKAMB CHECK FOR AMBIGUOUS CONTENTS 



SAVE GENERAL WEGISTERS 
SAVE THE TSSR CONTENTS 
PRINT THE CONTENTS OF T5SR 



0064 73 
000002 



000006 
016124 



006713 
000001 



000004 

001476 

002624 
003476 



000054 177777 



002624 
006664 



PRITSSR 


SAVREG 






MOV 


R1.R4 




PRINTS 


0TSSRF0R,R4 




MOV 


R4.-(SP) 




MOV 


*TSSRrOR.-CSP) 




MOV 


«2. (SP) 




MOV 


SP.RO 




TRAP 


CJPNTB 




ADO 


Vo.GP 




MOV 


R4.R0 




JSR 


PC. CHKAMB 




BCS 


5$ 




PRINTX 


OAMBTSSR 




MOV 


^AMBTSSR,-(SP) 




MOV 


<>1.-(SP) 




MOV 


SP.RO 




TRAP 


C$PNTX 




ADD 


#4.SP 


5$: 


MOV 


R4.R3 




BIC 


*HIADDR!FATERR! 




BEQ 


20$ 




MOV 


*TMPBFR.R2 




MOV 


#TSSRBIT,R1 


10$: 


TST 


R3 




BEQ 


15$ 




CLC 






ROL 


R3 




BCC 


13$ 




MOV 


CRD.RO 


11$: 


MOVB 


(R0)*,CR2)^ 




BNE 


11$ 




MOVB 


0' , ,-l(R2) 


13$: 


TST 


CRD* 




BR 


10$ 


15$: 


CLRB 


-CR2) 




PRINTX 


#TSSOEF,VMMPBFR 




MOV 


V>TM,JBFR,-(SP) 




MOV 


^^T5SDEF,-(SP3 



GET TSSR BACK FOR CHKAMB 
ARE CONTENTS AMBIGUOUS ? 
BRANCH IF NOT 
SHOW CONTENTS ARE AMBIGUOUS 



; CONTENTS OF TSSR 
TERCLS.R3 :CLEAR ALL MULTIPLE BIT FIELDS 
;N0 BITS ARE SET 
; TEMPORARY ASCII BUFFER 
;ASCII EQUIVALENT OF BITS 
(REMAINING BITS TO CONVERT 
(BRANCH WHEN ALL ARE DONE 
jCLEA^ TARRY FOR SHIFT 
iSHi: NCXI .1X1 TO CARRY 
J BRAN S IF tM NOT SET 
iPOIN LR TO .!>■ .-L; J-N.^TION 
iMOVE "^'x'.VTJ ■.'ifFFER 

MOVE . ^ > 

INSERT ,, '1A T!j \, < iINAiT. 

POINT TO NEai DE:jCRIr' ION 

GET THL REMAINING BIV 

TERMINATE Tl-E LINE 
1 PRINT THE B:.T DEFIN^^^ . 



TSV? ^ GLOBAL AREAS MACRO Mli^OO ^O-MAR-84 08:4fl PAGt. 16-1. 

PRITSSR - PRINT TSSR CONrfNTS 



N6 



SEQ 0039 



a9 

7?1 
7P3 



724 
7i?5 
726 
727 
728 
729 
730 
731 



732 
735 
734 



735 
736 



737 
738 
753 
754 
756 
757 
75fl 
759 
It J 



006164 

006170 
006:72 
006174 

006200 
006202 
006206 
006212 
006212 
006214 
006220 
006224 
006226 
006230 
006234 
006236 
006242 
006244 
006246 
006250 
006252 
006256 
006256 
006260 
006264 
006270 
006272 
006274 
006300 
006304 
006306 
006306 
006310 
006314 
006320 
006322 
006324 
006330 
006334 
006354 
006336 
006342 
006544 
006346 
006552 

006354 
006415 
006473 
006513 
006554 
006615 
006664 
"06713 



012746 
010600 
104415 
062706 

010405 
042703 
016303 

010346 
012746 
012746 
010600 
104415 
062706 
010403 
042703 
001416 
006203 
006203 
006203 
016303 

010546 
01274C 
012746 
010600 
104415 
062706 
042704 
001411 

010446 
012746 
012746 
010600 
104415 
062706 
013703 

010546 
012746 
010600 
104415 
062706 
000207 

045 
045 
045 
045 
045 
045 
045 
045 



000002 



000006 



177761 
006754 



006554 
000002 



000006 
177717 

007314 



006615 
000002 



000006 
176377 



006513 
000002 



000006 
002172 



000001 



000004 



116 
116 
116 

116 
116 
116 
116 
116 



20$ 



25$ 



30$ 



045 
045 
0' 5 
04*^ 
04- 
0' '■> 
04.3 
04'. 



EPRTl: 

EPRT2. 

Ti :-\'S 
T( ■. A^, 

TK.'^.S' : 
TS-' Uf . 



MOV 
HOV 
TRAP 
ADD 

MOV 

BIC 

MOV 

PRINTX 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

MOV 

BIC 

BEQ 

ASR 

ASR 

ASR 

MOV 

PRINTX 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

BIC 

BEQ 

PRINTX 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

NOV 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADO 

'ns 

.ASCIZ 
ASCIZ 



ft2,(SP) 
SP.RO 
CSPNTX 
i)(j . SP 

R4.R3 

^nCTERCL S,R5 

TC0C0DCR3).R3 

V^TC0ASC.R3 

R5.-(SP) 

<ATCOASC, -(SP) 

^2. -(SP) 

SP.RO 

CJPNVX 

<>6.SP 

R4.R3 

*tCFATERR,R3 

25$ 

R3 

R3 

R3 

T5FC0D(R5),R3 

«TrCASC.R3 

R3, -(SP) 

*TrCASC,-CSP) 

*2. (SP) 

SP»RO 

C$PNTX 

*6.SP 

OtCHIADDR.Kl 

30$ 

<?TEXASC.H4 

F4.-(SP) 

*TEXASC, -(SP) 

«2, (SP) 

SP.RO 

C$PNTX 

*6.SP 

EP;yTSW.R3 

R3 

(SP) 

-CiP) 

PC 

N. X 

SP 



ge:t the tssr contents 
clear all but termination 
get the termination code meaning 
print the termination code 



TSSR CONTENTS AGAIN 

CLEAR ALL BUT FATAL TERMINATION 

DON'T PRINT IF ZERO 



ALINE TERMINATION CODE FOR INDEX 
GET THE FATAL TERMINATION CODE 
PRINT THE FATAL TERMINATION CODE 



CLEAR ALL BUT EXTENDED ADDRESS 

DON' T PRINT IF ZERO 

PRINT THE EXTC[^DED ADDRESS BITS 



R3, 

*1, 

C'.l 

c-.r 

PC 



; PRINT MEAASGE BUFFER ADDRESS 
J PRINT PROPER MESSAGE 



'i<Ni<A 
'liNiiA 
.ASCIZ 

.psc:7 

.ASCTZ 

.ASCIZ 

'.SCJZ 

./^SCT,7 



♦♦♦••CHECK 
•♦•••CHECK 



«N#A 

^N^A 
#NiiA 



{RETURN TO CALLER 

TRANSPORT***^*' 

PARITY SWITCH IN TRANSPORT+**** 



TSSR - ii06' 

Exteno«d Address Bits ' ^06* 
Termlnatton Class Code " i*T 
Fatal Term i not ion Class Code 
TSSR B; ts Set; *T' 



=* »T 



6754 0067V4 007017 007045 TCOCOD: 



./VLN 
. isiORO 



TSSR Contents Are Ambiguous' 
l!p,a$ 5$.4$.5$.6$,7$,a$ 



PRXTSSR PRINT TSSR CONTTNTS 



\'A 



'jI'j oono 



/64 
7^S 
766 
767 
768 

7b^ 
'70 
VI 

7 7^ 
7 75 
7 74 
77S 

776 

777 

7 79 
780 
781 
782 
785 
784 
785 
786 
78 7 
788 
789 
790 
791 
792 
795 
794 
795 
796 
797 
798 
799 
900 
801 
802 
803 
804 
805 



606 
807 
808 

809 
810 
811 
812 
813 



006774 
007017 
007045 
00 706 7 
00710/ 
0071 71 
007240 
007264 



007514 
007324 
007560 
CX)7571 
007435 



007446 
007416 
007452 
007454 
007460 
007462 
007464 
007466 
007470 
007472 
007474 
007474 
007476 
007500 
007504 
007510 
007512 
007514 
007520 
007522 
007524 
007526 
007552 
007554 
007536 
007^0 



116 
124 
124 
106 
12^ 
122 
125 
106 



007324 
111 
122 
102 
122 



010005 
005737 
001001 
005005 
010301 
10400 
006100 
006101 

010446 
010146 
012746 
012746 
010600 
104414 
062706 
010300 
001404 
010401 
004737 
010004 
005001 
012402 



r>7 
14S 
141 
165 
145 
145 
156 
141 



007560 
156 
145 

16^ 
145 



003126 



007632 
000005 



000010 



017576 



16? 
162 
160 
156 
145 
145 
162 
164 



0075 71 
164 
165 
165 
163 



1$ 
5i 

4$ 
51 
6i 
7$ 
8$ 



TSFCOO: 
1) 



2i 
31 

4$ 



.ASCI/ 
.ASCI/ 
.ASCI/ 
.ASCI/ 
.ASCI/ 
.ASCI/ 
.ASCI/ 
.ASCI/ 
.EVEN 

.WORD 

.ASCI/ 

.ASCI/ 

.ASCI/ 

.ASCI/ 

.EVEN 

.SBTTL 



Normal T«rm!nat I on' 
Termination Condition' 
Tap« Statuv AUrf 
Function R«jact* 
Racov«rabl« Error - Tape 
Recoverable Error Tape 
Unrecoverable T rror ' 
Fatal Controller terror' 



Position One Record Oown" 
Was Not Moved' 



l$,2i,3i,4» 

'Internal Diagnostic Failure' 

' Reserved' 

•Bub Interface or Sanity Checl< Error' 

' Reserved" 

PRIPXT - PRINT THE ADORESS/CONTENT'.i OF COMMAND PACKET 



I THIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMAND PACKET 
;THIS ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE. 



; INPUT : 



I 
i 
I 
1 
i 
t 
I - 



RO 
R5 
R4 



NUMBER Of WORDS IN PACKET 

HIGH ORDER COMMAND PACKET ADDRESS 

ADDRESS OF COMMAND PACKET 



NOTE! R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR. 



PRIPKT: 



lOii 



15»! 



20 »! 
25^! 



SAVREG 

MOV R0.R5 

TST KTENADLE 

BNE 10$ 

CLR R3 

MOV R5,R1 

MOV R4,R0 

ROL RO 

ROL Rl 

PRINTS ♦PKTAD0.R1.R4 

MOV R4. -CSP) 

MOV Rl.-(SP) 

MOV ♦PKTAOO. -CSP) 

MOV *3.-CSP) 

MOV SP.RO 

TRAP CIPNTB 

ADO «10.SP 

MOV R3.R0 

BEQ 20$ 

MOV R4,R1 

JSR PC»SETMAP 

MOV R0,R4 

CLR Rl 

MOV (R4)..R2 

PRXNTB 0PKTFRM.Rl,R2 



tSAVE THE REGISTERS 

I SAVE NO. OF WORDS IN PACKET 

lABOVc 28K UNDER TEST? 

iBR IF YES 

I SET HIGH ORDER ADDRESS TO 

I COPY HIGH ORDER ADDRESS 

iGET LOWER ADDRESS 

iSHIFT BIT 15 INTO C BIT 

(AND INTO HIGH ORDER. 

iPRINT PACKET ADDRESS 



(GET HIGH ORDER ADDRESS 
I BR IF NOT ABOVE 28K . 
tGET LOW ORDER ADDRESS 
I SETUP PAR6 MAPPING FOR 18 
(GET RETURNED PAR6 ADDRESS 
(SAVE WORD N^.iH8ER 
iGfcT PACKET CONTENTS 
iPRINT THE DATA 



BIT ADDRESS 
BIAS 



TSV? ^a OtiAl rtRt 4S MACRO Mh^OO ."»0 MAR 8^ 08:44 PAliK l(>-.5 

PRIPKT PRINT THh ADDHtSli/CUNl tNTS OP COMMAND PACKErT 



I. 



'it'j 0041 



007540 
007542 
007544 
007550 
007554 
007556 
C07560 
^14 007564 

815 007566 

816 007570 

817 007572 

819 007574 

820 007632 
821 

822 
825 
624 
825 
826 
827 
828 
829 
830 
831 
832 
833 
854 
835 
836 
837 
838 
839 
d40 007670 

841 00:^670 

842 007674 

843 007676 

844 007706 
ft45 007712 

846 007714 

847 007716 
846 007720 

007720 
007722 
007724 
007726 
007752 
007756 
007740 
007742 

849 007746 

850 007750 
851 

852 007752 

853 

854 

855 



010246 
010146 
012746 
012746 
010600 
104414 
062706 
005201 
020105 
002762 
000207 

045 
045 



010203 

012700 
040001 
040002 
040003 

010546 
010146 
010246 
012746 
012746 
010600 
104414 
062706 
010300 
000207 

045 



007S74 
000005 



000010 



MCV R2. CJP) 

MOV Rl , -CGP) 

MOV ^KTFRM, -CSP) 

MOV #3, (SP) 

MOV SP.RO 

TRAP CIPNTB 

ADD tflO.SP 

INC Rl 

CMP R1.R5 

BLT 25$ 

RTS PC 



iNKXT WORD NUMBER 
{DONt ALL PACKET WORDS? 
tLOOP TILL ALL DONE 
(RETURN 



116 
116 



045 PKTFRH: 
045 PKTADD: 



.A5CIZ 

.ASCIZ 

.EVEN 

.SBTTL PRIBXOR - PRINT EXPD. RECV AND XOR BYTE 



'*N#A Packet Word 0«01«A - #06' 
'MNitA Packet Address - ^01^05' 



PRINT EXPECTED DATA. RECEIVED DATA, AND XOR OF THE DATA BYTE 
THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 



INPUTS: 



Rl 
R2 



OUTPUT ; 



RO 



RECEIVED DATA 
EXPECTED DATA 



XOR OF EXPECTED/RECSIVED DATA 



PRIOXOR: 



177400 



007752 
00O0O4 



O00O12 



SAVREG 

MOV 

XOR 

MOV 

BIC 

BIC 

BIC 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

MOV 

RTS 



R2.R5 

R1.R5 

*tC<577>.RO 

RO.Rl 

R0,R2 

R0.R3 

0X0RBF0R.R2,R1 

R3,-(SP) 

Rl.-(SP) 

R2,-(SP) 

«X0RBF0R,-(SP) 

«4. -CSP) 

SP.RO 

CIPNTB 

♦12, SP 

R5,R0 

PC 



I SAVE THE 

lEXPECTED 

I FORM THE 

»BYTE 

(SAVE 

(SAVE 

(SAVE 



REGISTERS 

DATA 

EXCLUSIVE 
MASK 

LOW BYTE RECV 
LOW BYTE EXPO 
LOW BYTE XOR 



OR 



,R5 (PRINT THE MESSAGE 



(RO HAS XOR ON RETURN 
(RETURN TO CALLER 



116 



045 XORBFQR: 



.EVEN 
.S8TTL 



.ASCIZ '^NKA EXPO: i<05*A RECV: #03*A XOR: «*03* 
PRIXOR - PRINT EXPO, RECV AND XOR 



:)'^i 



TSV5 ut OBAl ARIAS MACRO MU^OO .20 MAR tt^ Oi^ : 4^ PAliK U,-4 
PRIXOR PRINT EXPO. RECV AND XOR 



SFQ 004 i? 



858 
8S9 
860 
8bl 
86^ 
(?63 
864 
865 
866 
86? 
868 
869 
870 
871 
872 
873 
874 
875 
876 



877 
878 
879 
860 
881 
882 
883 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
696 
897 
898 
899 
900 
901 
902 
903 
904 



010020 
010020 
010024 
010026 
010036 
010036 
010040 
010042 
010044 
010050 
010051 
010036 
010060 
010064 
010066 

010070 



010136 
010136 
01014J 



(PRINT EXPECTtO DATA. RE-CBIVED DATA. AND XOR Of 1H\- TWO 
jTHIS ROUTINE lb NORMALLY CALLED ONLY FOR PRINT ROUTINES. 



! INPUTS J 



Rl 
R2 



RECEIVED 
EXPECTED 



DATA 
DATA 



( 

I OUTPUT: 



RO 



I - 



PRIXOR: : 



010203 



010346 
010146 
010246 
012746 
012746 
010600 
104414 
062706 
010300 
000207 

045 



OK'C'O 
00O04 



oo;ci2 



J. I fi 



SAVREG 

MOV 

XOR 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

MOV 

RTS 



XOR OF EXPECTED/RtCElVfcD DATA 



I SAVE THE REGISTERS 
R2,R3 iEXPECTED DATA 

R1.R3 iFORM THE EXCLUSIVE OR 

#X0RF0R.R2.R1,R3 jPRINT THE MESSAGE 
R3.-(SP) 
Rl.-CSP) 
R2,-CSP) 
*X0RF0R.-(SP) 
♦4.-(SP) 
SP.RO 
CIPNTB 
#12, SP 

R3,R0 jRO HAS XOR ON RETURN 

PC (RETURN TO CALLER 



045 XORFORi .ASCIZ 
.EVEN 
.SBTTL PRIEQU 



•*N#A EXPO I i*06^A RECV: *06«(A XOR: K06' 

- PRINT BIT NUMBERS AS ASCII EQUIVALENT 



ROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING 
:THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 



(INPUTS: 



RO 
Rl 



OCTAL VALUE TO CONVERT 

TABLE OF POINTERS TO ASCII EQUIVALENT 



PRIEQU: 



000207 



SAVREG 
RTS PC 



(SAVE THE REGISTERS 
(RETURN TO CALLER 



.SDTTL PRIRAM - PRINT RAM ADDRESS 



(PRINT CONTROLLER RAM ADDRESS. 

(THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 



TSV5 aOBAl AREAS MACRO Mlc>00 f.'0-MAR-a4 00:44 PAGb" 16-5 

PRIRAM PRINT RAM ADDRtS'J 

906 
90 7 
908 
909 
910 
911 
•^12 
913 



l/l 



SEQ 004? 



914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
950 
931 
932 
953 
934 
935 
936 
957 
936 



939 

940 
941 
942 

943 
944 
945 
946 
94 7 
94a 



010144 
010144 
010150 
010150 
010152 
010156 
010162 
010164 
010166 
010^72 

010174 



010256 
0*0256 
01C242 
010246 
010252 
010254 
010256 
010260 
0T0260 
010262 
010264 
010270 
010274 
010276 
010300 
010304 

010306 



010446 
012716 
012746 
J 0600 
104414 
Oo270t. 
000207 

045 



013?00 
013701 
010102 
006101 
006100 

010246 
010046 
012746 
0127'?6 
01C600 
1044K 
062706 
000207 

045 



010174 
000002 



000006 



116 



045 



1 INPUTS 


; 






R4 


RAM ADDRESS 


PRIRAM: 


SAVREG 






PRINTB 


*RAMF0R,R4 




MOV 


R4.-(SP) 




MOV 


<>RAMFOR, -CSP) 




MOV 


*2.-CSP) 




MOV 


SP.RO 




TRAP 


CJPNTB 




ADD 


*6,SP 




RTS 


PC 


RAMFOR : 


.ASCIZ 
.EVEN 


'^hH(\ CONTROL 



j'jAVF. R1-H5 IJNTIL NEXT RETlfRN 
.'PRINT RAM ADDRESS IN ERROR 



;RETURN 



.SBTTL PRIADD ■ PRINT MEMORY ERROR ADDRESS 



PRINT MEMORY ADDRESS 

THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 



IMPLICIT INPUTS 



PRIADD; 



002250 
002232 



03C."f06 
000003 



000010 



116 



045 PRIAO: 



ERRHI 
ERRLO 



5AVREG 

MOV 

MOV 

MOV 

ROL 

ROL 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

RTS 

.ASCIZ 
.EVEN 



- HIGH ORDER ADDRESS 

- LOW ORDER ADDRESS 



EriRHl.RO 

ERRLO. Rl 

R1.R2 

Rl 

RO 

^RIAO,R0.R2 

R2.-CSP) 

RO.-(SP) 

#PRIA0.-CSP) 

03. (SP) 

SP.RO 

CIPNTB 

OIO.SP 

PC 



I SAVE R1-R5 UNTIL NEXT RETURN 

(GET HIGH ADORESSS 

I GET LOW ADDRESS 

I COPY LOW ADDRESS 

iSHIFT BIT 15 TO C BIT 

(SHIFT INTO HIGH ORDER 

; PRINT MEMORY ADDRESS IN ERROR 



J RE TURN 



i<Ni*A MEMORY ERROR ADDRESS • 1*01*05' 



.SBTTL PRITADD - PRI 4T MEMORY TEST ADDRESS 



(PRINT MEMORY ADDRESS 

(THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 



TSV5 oLOBAL ARf.'V, M,AC«0 Mi.>00 c^O-MAR-flA 08 ; 44 PAGE 16-6 
PRITADD PRINT HtMORY JLV.: ADORtSS 



rn 



SEQ 0044 



949 
950 
951 
952 
95? 
954 
955 
956 
957 
95e 
959 
960 
961 
962 
963 



964 



965 
966 
967 
968 
969 
970 
9?1 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
962 
985 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 



010352 
010352 
010356 
01036? 



010366 
010366 
010370 
01037-, 
010400 
010402 
010404 
010410 
010410 
010412 
010416 
010422 
010424 
010426 
010432 

010434 
010477 



015702 
013701 



045 
045 



IMPLICIT INPUTS 



ERRHI 
ERRLO 



^ HIGH ORDER ADDRESS 
- LOW ORDER ADDRESS 



PRITADD; 



OCr\"J0 

002232 



0l0i;6 
012746 

J 0600 
104414 
06270(^ 

010246 

01274r> 

012746 

010600 

104414 

06270*. 000006 

000207 



03 o'-:-"^; 

000002 



000006 



0i()4 /? 
C00002 



.1 J •.-■ 
116 



045 PRITO: 
045 PRITl: 



SAVREG 

MOV 

MOV 

jMOV 

;R0L 

jROL 

PRINTB 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

PRTNTB 

MOv 

MOV 

MOV 

MOV 

TRAP 

ADD 

RTS 

.ASCI? 
-ASCXZ 
.EVEN 
.SBTTL 



ERRHI. R2 

ERRLO, Rl 

R1.R2 

Rl 

RO 

^RITO.Rl 

Rl.-CSP) 

*PRITO.-(SP) 

#2.-(SP) 

SP.RO 

CtPNTB 

#6,SP 

*PRIT1.R2 

R2.-CSP) 

#PRIT1.-CSP) 

*2. SP) 

SP.RO 

CtPNTB 

06, SP 

PC 



;SAVE R1-R5 UNTIL NEXT RETURN 
jGET HIGH AOORESSb 

GET LOU ADDRESS 

COPY LOW ADDRESS 

SHIFT BIT 15 TO C BIT 
I SHIFT INTO HIGH ORDER 
J PRINT MEMORY ADDRESS LOW IN ERROR 



; PRINT MEMORY ADDRESS HIGH IN ERROR 



iRETURN 



'*NKA 
'#N#A 



MEMORY 
MEMORY 



TEST 
TEST 



ADDRESS 
ADORE :3S 



LOU 
HIGH 



* 1^06 



SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND 



ROUTINE TO ISSUE A SPACE RECORDS 
COMMAND (FORWARD OR REVERSE) 



INPUT : 



R3 



R5 



NUMBER OF RECORDS TO BE SPACED OVER 

BIT15 CONTROLS DIRECTION 

BIT15 - IS FORWARD 

BIT15 ■ 1 IS REVERSE 

FIRST DEVICE UNIBUS ADDRESS 



REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 



OUTPUT : 



CARRY SET SPACE RECORDS COMMAND OK 
CLR - SPACE RECORDS FAILED 



RO THE CONTENTS OF R4 IS MOVED TO RO 



iVl 



TSV^ oLOBAL ARLAS 


MACRC' ■ 


].-00 20 MAR -a^l 


i 08:44 


PAGE 16-7 


SPACE 


SPACE 


RECORDS 


CrORWARD AND RtVF.RSE) 


COMMAND 




994 
















99S 
















996 










IMPLICIT OUTPUT; 


997 
















998 
999 












TAPE HAS BEEN MOVED 


1000 










SIDE 


EFTECTS: 




1001 
















1002 
















100? 










_ 






1004 
















1005 


010544 






SPACE : 


. 




1006 


010544 










SAVREG 




1007 


010550 


012737 


000761 


O1C740 




MOV 


^500. .SDELAY 


1006 


010556 


012737 


14C010 


010730 




MOV 


0140010.80$ 


1009 


010564 


005703 








TST 


R3 


1010 


010566 


100403 








BMI 


51 


1011 


010570 


010337 


0l073i^ 






MOV 


R3.90* 


1012 


010574 


000407 








BR 


10$ 


1013 


010576 


042703 


100000 


bti 


BIC 


*eiT15.R3 


1014 


010602 


01 03*7 


010732 






MOV 


R3.90$ 


1015 


010606 


052737 


000400 


010730 




BIS 


OBITS. 60J 


1016 


010614 


012704 


Oi07?.0 


] 


L0$: 


MOV 


080$.R4 


1017 


010620 


010465 


OOOOOO 






MOV 


R4.TSDB(R5) 


lOlfl 


010624 


004737 


016530 


] 


L5$: 


JSR 


PC.UAITF 


1019 


010630 


103420 








BCS 


20$ 


1020 


010632 










DELAY 


250 




010632 


012727 


0002!jO 






MOV 


0250, CPO* 




010656 


000000 








.WORD 







010640 


013727 


002110 






MOV 


LIDLY.CPO* 




010644 


OOOOOO 








.UORD 







010646 


00536V 


177772 






DEC 


-6(PC) 




010652 


001375 








BNE 


. -4 




010654 


005367 


177'/ Hi) 






DEC 


-22(PC) 




010660 


001367 








BNE 


. -20 


1021 


010662 


00533? 


010740 






DEC 


SDELAY 


1022 


010666 


001356 








BNE 


15$ 


1023 


010670 


000411 








BR 


60$ 


1024 


010672 


016501 


OuOOO? 


201; 


MOV 


TSSR(R5).R1 


1025 


010676 


012702 


000200 






MOV 


0SSR,R2 


1026 


010702 


020201 




25J: 


CMP 


R2.R1 


1027 


010704 


001401 








6EQ 


40$ 


1028 


010706 


OCO402 








BR 


60$ 


1029 


010710 


000?^X 




405: 


SEC 




1030 


010712 


000401 








BR 


70$ 


1031 


010714 


000241 




60»: 


CLC 




1032 


010716 






70$ i 






1035 


010716 


010400 








MOV 


R4,R0 


1034 


010720 


0002r 7 








RTS 


PC 



SEQ 0045 



iSAVE THE GENERAL REGISTERS 

J SET UP DELAY 

;SET UP COMMAND. SPACE FORWAHL) 

J CHECK FOR DIRECTION 

:BR. IF REVERSE INDICATED 

;LOAD UP Nur«ER OF RECORDS TO SPACE 

(GO DO COMMAND 

I CLEAR DIRECTION BIT 

J LOAD UP NtJMBER OF RECORDS TO SPACE 

;SET REVERSE BIT IN COMMAND PACKET 

SET UP R4 WITH PACKET ADDRESS 

SEND OUT COMMAND 

WAIT FOR SSR 
;BR. IF SSR IS SET AND OK 
t DELAY ABOUT .25 SECONDS 



J BUMP DELAY COUNTER DOWN 

I BR. IF MORE DELAY 

I BR IF TROUBLE CARRY - CLEAR 

J READ TSSR 

iSET UP EXPECTED 

J ARE THEY OK 

jBR. IF EQUAL - OK 

(TROUBLE EXIT 

;SET CARRY NO TROUBLE 

;EXIT 

; CARRY CLEAR ■ ERROR 

;PASS PACKET ADDRESS 
I RETURN 



TSV-^ ■ GLOHAl ARFA-^ MAC^^O •■'MOO ?.0 hfXn QA 0fi;'14 PAGK 17 

SPACF ■ SPACE RCCORDS CFOPWARO ANO REVERSE) COMMAND 

105b J 

10.^ ; . 

J 058 

1059 

1040 

I04i> 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 



H4 



SEQ 0046 



010730 



010730 000000 



010752 
010754 
010736 
010740 



000000 
000000 
000000 
000000 



1053 
1054 
105:') 
2056 
105/ 
1058 
1059 
lOtO 
1061 
^062 
1063 
1064 
1065 
1066 
1067 
1068 
106 ^> 
1C70 
1071 
1072 
i07o 
1074 
1075 
.1076 
1077 
1078 
r079 
i080 
.1081 
1082 
1085 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 



01074cr 
010/4;? 
0107-?6 
010752 
010756 
010762 
010766 
010770 
010 772 
010V76 



J PACKET FOR SPACE COMMAND 

. "< . *10>£177770 

! COMMAND WORD 
80$: .WORD 
; NUMBER OF RECORDS TO BE SPACED OVER WORD 

; DELAY COUNTER 
WRITE CHARACTERISTICS COMMAND 



90$: 


.WORD 
.WORD 
.WORD 




SDELAY: 


.WORD 
.EVEN 







.SBTTL 


WRTCHR 



ROUTINE TO ISSUE A WRITE CHARACTERISTICS 
COMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED 



INPUT i 



i OUTPUT 



R4 ADDRESS OF PACKET FROM TEST 
R5 FIRST DEVICE UNIBUS ADDRESS 
REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 



RO TSSR CONTENTS 

CARRY SET - WRITE CHARACTERISTICS COMMAND OK 
CLR - WRITE CHARACTERISTICS FAILED 



IMPLICIT OUTPUT: 



MESSAGE BUFFER AND OTHER BUFFERS ALL SET UP 

SOFTWARE SWITCHES SET AS FOLLOWS: 

EXTFEA - EXTENDED FEATURES PRESENT 
BEN6SW - BUFFER ENABLE SWITCH ON OR OFF 



SIDE EFFECTS: 



005i'^37 
00503? 
010465 
004 7 "S 7 
103401 
0004 j5 
016501 
O12V02 



ooocno 

016*116 



OOOnO. 
0002OO 



WRTCHR: 


'SAVREG 






CLR 


8EN8SW 




CLR 


EXTFEA 


10$: 


MOV 


R4.TSDB(R5) 




JSR 


PC,CH*<TSSR 




BCS 


201 




BR 


60$ 


20$: 


MOV 


TSSRCR5).R1 




MOV 


0SSR.R2 



J SAVE THE GENERAL REGISTERS 
I CLEAR BUFFER ENABLE SWITCH 

iCLEAR EXTENDED FEATURES SW SWITCH 

jSENO OUT COMMAND 

tWAIT FOR SSR 

iBR, IF SSR IS SET AND OK 

jbT IF TROUBLE CARRY - CLEAR 

(READ TSSR 

fSET UP EXPECTED 



I /I 



TSV,^ a OBAl ARFA'; MACRO 'M?00 ."'OMAH-H') 08140 PAbK 17-1 
WRTCHR - WRIfF CHARACTLRT'JTIC'.j COMMAND 



1095 


011002 


032701 


000100 


10% 


011006 


001402 




109? 


OilOlO 


052702 


000100 


1098 


01101^ 


020201 




1099 


01101b 


001401 




1100 


011020 


000421 




1101 


011022 


062/04 


0000 U' 


1102 


CI 1026 


011403 




1105 


OllClO 


032765 


oo(;20o 


1104 


011036 


001402 




1105 


011040 


005237 


002.?20 


llOfe 


011044 






1107 


011044 


052763 


000100 


1108 


011052 


001402 




1109 


015.054 


00523? 


002222 


1110 


011060 






1111 


011060 


00C261 




1112 


011062 


000401 




1113 


0110f"»4 


003241 




1114 


011066 


Ol6^00 


000002 


1115 


011072 


OOOc'07 




1116 








1117 








my 








1119 








1120 








1121 








1122 








1123 








1124 








112!i> 








3126 








112/ 








1128 








1129 








1150 








1131 








1132 








1133 








1134 








1135 








1136 








1137 








U38 








1139 








1140 








1141 








1142 








1143 








1144 


011074 






1145 


011074 






1146 


011100 


0127C4 


01U7C 


114 7 


0U104 


01C465 


000000 


1148 


011110 


012703 


00G5S-^ 


1149 


011114 


004/5? 


016330 


1150 


oii:.20 


103417 




X151 


011122 







000012 



000012 





BIT 


VIOFL.RI 




Bt(3 


25$ 




BIS 


d0f-"l.,R2 


25$: 


CMP 


R2,R1 




BFQ 


40$ 




BR 


60$ 


40$: 


ADO 


V^8. .R4 




MOV 


CR4).R3 




BIT 


0X2.t:XTF.XST2(R3) 




Bta 


45$ 




INC 


tXTFEA 


45$: 








BIT 


#X2.BU"£,XliT2(R3) 




BtQ 


50$ 




INC 


BENBSW 


50$: 


SEC 






BR 


70$ - 


60$: 


CLC 




70$: 


MOV 


TSSR(R5),R0 




RTS 


PC 




.SBTTL 


REWIND - POSITIO 



5EQ 004 7 



I WAS Or>" LINE SfT IN TS5R 

;BR. ir NO OFL SET 

iMAKE THEM L OOK Al IKE 

;ARF THEr OK 

iRP. ir EQUAL - OK 

(TROUBLE EXIT 

(POINT TO URT CHARA DATA PACKET 

(GET ADDRESS OF MfSSAGF BUf FFR 

( EXTENDED FEATURFS BIT SET? 

[BR IF NO 

;SET EXTENDED FEATURES SW 3UITCH 

;Bl)FFER enable SWITCH SET 
(BR. If SWITCH NOT SET 
(SET SOFTWARE SWTTCH FOR ENABLED 

(SET CARRY NO TROUBLE 

(EXIT 

(CARRY CLEAR ■ ERROR 

(RETUWN TS5R CONTENTS 

(RETURN 



POSITION TAPE CREWIND) COMMAND 



THIS ROUTINE WILL REWIND THE SELECTED TAPE. 



CAUTION: THE ROU',f . 
TO APP.> . 
SSR T' .VC 



OES NOT WAIT FOR BQT 
.jO THE CALLER MUST CHECK FOR 
THE TSSR 



CALLING SEQUENCE: 



DO A SOFT INIT 

no A WRITE CHARACTERISTICS 

JSR PC. REWIND 



INPUT : 



OUTPUT 



R5 



RO 



FIRST DEVICE UNIBUS ADDRESS 



THE CONTENTS OF R4 IS PASSED TO RO 



PEWINO: 


SAVREG 






MOV 


0RWPACK.R4 




MOV 


R4,T50B(R5) 




MOV 


0360. ,R3 


10$: 


JSR 


PC.WAITF 




BCS 


20$ 




DELAY 


250, 



(SAVE Rl-fl5 UNTIL NEXT RETURN 

[GET PACKET A00R3SS 

[SEND PACKET ADDRESS TO EXECUTE 

(ENOUGH TIME FOR 2400' REEL TO REWIND 

[WAIT FOR SSR TO SET 

(I EAVE WHEN SSR IS SET 

(WAIT FOR .as SECONDS 



jn 



TSV.^ lU.OPAi ARt.'^S i^". 'ill MU^OO /0-MAR-8n 08:44 PA(;K. 1?-^ 

RtWiND POSITION TAPf. C .uiND) COMf^AND 



SF.Q 0048 





011122 


01272- 


C -n-r/,' 




011126 


OOOC.'O 






011130 


015727 


u -2^ U^ 




011134 


oooooo 






011136 


00S5:-7 


■j 7 7 772 




011142 


0013 f> 






011144 


00136 7 


177756 




011150 


00 13;) 7 




115? 


011152 


003"" 3 




1153 


031154 


0013'3 7 




ll!i4 


011156 


000241 




11^5 


0U160 


010*. 00 




1156 


011162 


000207 




1157 








115y 




01117^. 




1161 


011170 






1162 


0U170 


io;:Oio 




llbJ 


011172 


oooooo 




1164 








1165 








1166 








1167 








1168 








1169 








1170 








1171 








1172 








11/^ 








1174 








11/5 








1176 








1177 








1178 








1179 








1180 








1181 








1182 








1185 








1184 








1185 








1186 








118/ 








1188 








3189 








1190 








1191 








1192 








IHJ 


0111/4 






1194 


011174 






1195 


011200 


012701 


002234 


1196 


C11204 


012702 


000201 


1197 


011210 


005003 




1198 


011212 


004737 


016416 


3 199 


011216 


112765 


OOOOOO 


1200 


011224 


004 737 


016416 


1201 


011250 


010265 


OOOOOO 


1202 


011234 


004737 


01641b 





MOV 


it?50. .(PC)* 




.WORD 







MOV 


L$OLr.(PC)^ 




.WORU 







DRC 


-6(PC) 




bne: 


.-4 




DtC 


-22(PC) 




BNt 


. -20 




DhC 


R3 




BNf 


10$ 




CLC 




205: 


MOV 


R4,R0 




PJS 


PC 




.■■*<,♦ 10 


>fil777/0 


RWPACK : 








.1- MO 


102010 




.'a^RD 







.5UTTL 


CKRAM - C 



I DUMP COUNTER DOWN 
jKfcEP GOING 

jCl-EAR CARRr TO bf T ERROR 
:PASS THE PACKET ADDRESS 
J RETURN 



:P05TI0N COMMAND (REWIND) 
iNOr U5E0 
COMPARE RAM TO I/O PACKET 



ROUTINE TO Rr-AD IK: riRST 8 B>Th5 FROM HAM 
MtMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 



INPUT: 



R4 
R5 



OUTPUT : 



CARRY 



ADDRtSl' Of THt COMMAND PACKET 
FIRST DEVICE l^NIRUS ADDRESS 



SET ■ RAM MAT CHE :; PACKE I 

CLR - RAM DOES NOT MA i CH PACKET 



IMPLICIT OUTPUT. 

THE TABLE RAMOATA IS FILLED WITH THE 

DATA HELD IN RAM. 

RAMSIZ IS SET TO 8. FOR PRAMPKT ROUTINE 

SIDE EFFECTS: 

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 



CKRAM 



OOOOOO 



10$: 



SAVREG 

MOV 

MOV 

CLR 

JSR 

MOVB 

JSR 

MOV 

JSR 



WAMOATA.Rl 

W^MPKTBEG,R2 

R3 

PC.CHKTSSR 

#0,TSDB(R5) 

PC.CHKTSSR 

R2. ISDB(R5) 

PC.CHKTSSR 



FIRST 
FLAG 



RAM DATA 



I SAVE THE GENERAL RKGISIERS 

(ADDRESS TO SAVE fHE ^^AM DATA 

jbYTE ADDRESS OF 

(CLEAR THt ERROR 

;UAIT FOR SSR 

;5EV MAINTENANCE 

{WAIT FOR SSR TO 

J SELECT NEXT RAM 

iWAIT FOR SSR TO 



MODE 
SET 

ADDRESS 
SET 



K/l 



Tsv:^ ui ora: are'.as 


MACRO 


CKRAM 


COMPARt RAM TO VO P 


150? 


011240 


116511 


000000 


1201 


011244 


122124 




i;^05 


011246 


001401 




l?0o 


011250 


005203 




1207 


011252 


005202 




1^00 


011254 


020227 


000210 


i:^09 


011260 


003761 




l.?10 


011262 


005703 




1.^1.1 


011264 


003 402 




icn^ 


011266 


000241 




1213 


011270 


000401 




1214 


0112V2 


000261 




1215 


011274 


012737 


000010 


1216 


011302 


000207 




1217 








12i(? 








121'4 








1220 








1221 








1222 








1223 








1224 








1225 








1226 








1227 








1226 








1229 








1230 








1231 








1232 








1253 








1234 








1235 








1236 








1237 








1238 








1239 








1 . ,0 








1241 








1242 








124 3 








1244 








124b 


011304 






1246 


011304 






124 7 


01131C 


012701 


002234 


1248 


011314 


012702 


000167 


1249 


011320 


005003 




1250 


011322 


004737 


016416 


1251 


011326 


112765 


000000 


1252 


011334 


004737 


016416 


1253 


011340 


010265 


IKX)000 


1254 


011344 


004737 


016416 


1255 


011350 


116511 


000000 


1256 


011354 


122124 




1257 


011556 


001401 




1258 


011360 


005205 




1259 


ni362 


005202 





MACRO M1200 20-MAR-84 08:44 PACK 17-3 



^EQ 0049 



002274 





MOVU 


T3BA(R5).CR1) 




LMPB 


(Rl)f ,(R4)* 




DEQ 


20$ 




INC 


R3 


20$: 


INC 


R2 




CMP 


R2.ftRMPKTEND 




BLE 


10$ 




TST 


R3 




BF.a 


30$ 




Cl.C 






BR 


50$ 


30 J: 


SEC 




50$: 


MOV 


^8. .RAMS17 




Rrs 


PC 




.SBTTL 


Cl<RA't2 - COMPARE 



I READ THE RAM DATA 
COMPARE TO EXPECTED 
BRANCH IF OK 
SET ERROR FLAG 



HAM I OCATION 
■; 

READ 



OP NEXT 
REACHED END YET 
BRANCH TILL ALL 
WAS AN ERROR FOUND 
BRANCH IF NOT 
CLEAR CARRY TO SHOW ERRO'f 
AND EXIT 

SHOW GOOD COMPARt 
SETUP RAMSIZ FOR PRAMPKT ROUTINE 
RETURN 
RAM TO I/O CHARACTERISTICS DATA 



ROUTINE rO READ THE FIRST 8 OR 10 BvTES FROM RAM 

MEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK. 



ADORES' 



INPUT: 



R4 

R5 



OUTPUT : 



CARRY 



ADDRESS OF THE CHARACTERISTICS DATA 
FIRST DEVICE UNIBUS ADDRESS 



SET - RAM MATCHES PACKET 

CLR - RAM DOES NOT MATCH PACKET 



IMPLICIT OUTPUT: 

THE TABLE RAMOATA IS FILLED WITH THE 

DAfA HELD IN RAM. 

RAMSIZ IS SET TO 8. OR 10. FOR PRAMPKT ROUTINE 

SIDE EFFECTS: 

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 



CKRAh2 



000000 



10$ 



:o$ 



SAVREG 




MOV 


RAMOATA, Rl 


MUV 


0RMCHBEG,R2 


CLR 


R3 


JSP 


PC.CHKTSSR 


MOVB 


#0.TSDBCR5) 


JSR 


PC.CHKTSSR 


MOV 


R2,TSDB(R5) 


JSR 


PCCHKTSSR 


MOVB 


TSBA(H5).(R1) 


CMPB 


tRl)*.CR4)* 


UEQ 


20$ 


INC 


R3 


INC 


R2 



FIRST 

FLAG 



RAM DATA 



:5AVE THE GENERAL REGISTERS 

I ADDRESS TO SAVE THE RAM DATA 

jBYTE ADDRESS OF 

(CLEAR THE ERROR 

jUrtIT FOR SSfl 

J SET MAINTENArKE 

jUAlT FOR SSR TO 

(SELECT NEXT RAM 

iWAIT FOR SSR TO 

[READ THE RAM DATA 

iCOMT^ARE TO EXPECTED 

J BRANCH IF OK 

(SET ERROR FLAG 

{ADDRESS OF NEXT RAM LOCATION 



MODE 
SET 

ADDRESS 
SET 



/I 



TSV.^ - ul.OBAl ARt.AS MACRO HIPOO ^^0 MAP 84 0«:44 PAGK 1/-4 
CKRAM2 COMPARE RAM TO T '0 CHARACTfRISTICS DATA 



SEQ 00^0 



1260 
12G1 
1262 
1265 
1264 
1265 
1266 
1267 
126^ 
1269 
1270 
1271 
1272 
1275 
1274 
1275 
.2/6 
1277 
1278 
127^* 
1280 
12*31 
1282 
1285 
1284 
1285 
1286 
128 7 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
X316 



011364 
011572 
011376 
011400 
011406 
011412 
011414 
011416 
011422 
011424 
011426 
011430 
011432 
011434 
011436 



011440 
011440 
011444 
011450 
011454 
011460 
011462 
011466 
011470 
011472 
011474 
011476 
011502 
011506 
011510 
011512 
011514 



012757 
005737 
00140/ 
012737 
020227 
003750 
0004C3 
020227 
003744 
005705 
001402 
000241 
000401 
000261 
000207 



010037 
010137 
005737 
001403 
004737 
010001 
005004 
005003 
010205 
011264 
011164 
022221 
001401 
005205 
062704 



000010 
002220 

000012 
000200 



000176 



002274 
002274 



002276 
002300 
003126 

017376 



002314 
002460 



000002 



25J 
27$ 



30i 
50 J 



MOV 

TST 

bEU 

MOV 

CMP 

Bt F. 

BR 

CMP 

BLE 

TST 

BEQ 

CLC 

BR 

SEC 

RTS 

.SBTTL 



i>&. .RAMSI/ 

25$ 

V>10. ,RAM5T/ 

R2.0RMCMtND 

lOJ 

27$ 

R2.^RMCHtN0-2 

10$ 

R3 

30$ 

50$ 

PC 



ASSUME KXTFEA NOT Sl f 

lb THE SOETWARF. EXTENDED PEATi.iRl-.S SET 

BR, IE NOT 3r,T 

iSET RAMSIZ EOR EXTEND FEATURES 
I AT END OP EXTENDED BUEPLR 
iBR. IP NOT AT END rET 

AT END BRANCH 

REACHED END YET ? 

BRANCH TILL ALL READ 

WAS AN ERROR POUND ? 

BRANCH IP NOT 

CLEAR CARRr TO SHOW ERROR 

AND EXIT 

SHOW GOOD COMPARE 

RETURN 



CKMSG - COMPARE WRIT^ CHAR. MESSAGE BUPEERS 



ROUTINE rO COMPARE A WRITE CHARACTERISTICS EXPO AND RECV 
BUTPER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
ERROR PRINT ROUTINES. 



INPUT: 



OUTPUT: 



RO 
Rl 
R2 



RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOW ORDER ADDRESS 
EXPD MESSAGE BUFFER ADDRESS 



CARRY 



SET - MESSAGE BUFFERS MATCH 

CLR -MESSAGE BUFFERS DON'T MATCH 



IMPLICIT OUTPUT: 

EXPMSG 
RECMSG 
RCVMIADD 
RCVLOADD 



BUFFER IS SET TO EXPD DATA 
BUFFER IS SET TO RECV DATA 
SET TO HIGH ORDER ADDRESS OF RECV 
SET TO LOW ORDER ADDRESS OF RECV 



CKMSG 



10$: 
15$: 

25$: 



SAVREG 

MOV RO.RCVHXADO 

MOV Rl.RCVLOAD 

TST KTENABLE 

BEQ 10$ 

JSR PC.SETMAP 

MOV RO.Rl 

CLR R4 

CLR R3 

MOV R2.R5 

MOV (R2),EXPMSGCR4) 

MOV CR1),RECMSG(R4) 

CMP (R2)+.CR1)* 

BEQ 25$ 

INC R3 

ADD t>a , R4 



SAVE R1-R5 UNTIL NEXT RETURN 

SAVE RECV HIGH ADDRESS 

SAVE RECV LOW ADDRESS 

TESTING ABOVE 28K? 

BR IF NO 

RETURN ADDRESS BIASED TO PAR6 IN RO 

GET RETURNED ADDRESS BIASED TO PAR6 

WORD IN BUFFER 

CLEAR ERROR SEEN FLAG 

GET EXPD BUFFER ADDRESS 

SAVE EXPD FOR ERROR REPORT 

SAVE RECV FOR ERROR REPORT 

EXPD EQUAL RECV? 

BR IF YES 

SET ERROR SEEN FLAG 

POINT TO NEXT WORD ADDRESb 



•14 



]SV^ ■ Gl.ORAl ARr.AS MACRO M 1.^00 c?0~MAR ^n 06:^4 PAGK 17-5 

CKMSG COMPARE WRITE CHAR. HfeSSAGE BUFFtRS 



SEQ 00^1 



1317 
1318 
1319 
1320 
1321 
15^2 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1551 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1560 
1361 



1362 
1363 

i:.s4 

1365 
1366 
1367 
1368 



011520 
011524 
011526 
011534 
011536 
011542 
011544 
011546 
011550 
011552 
011554 
011556 



011560 
011560 
011564 
011570 
011572 
011575 
011576 
011602 
011606 
011610 
011612 
011616 
011622 
011626 
011632 
011634 
011640 
011642 



020427 
003764 
032765 
001403 
020427 
003755 
005703 
001402 
000241 
000401 
000261 
000207 



020327 
003412 
012703 

012746 
012746 
010600 
104417 
062706 
010037 
010137 
005737 
001403 
004737 
OlOOCi 
005004 



000014 

000200 000012 

000016 



50$ 



55$ 
60$ 



CMP 

BLt 

BIT 

BEQ 

CMP 

BLE 

T5T 

BEQ 

CLC 

BR 

SEC 

RTS 

.SBTTL 



R4,vn4 
15; 



DONE FIRST 
BR IF NO 



7 WORDS. ■" 



^X2.EXlF,XST2(R5)iIS EXTENDED FEATURES SET IN E/PD? 

50$ jBR IF NO 

R4,<>16 ;DONE EXTENDED FEATURES WORD? 

15$ iBR IF NO 

R3 jANY ERRORS SEEN? 

55$ ;BR IF NO 

:5ET FAILURE 
60$ t 

:SET SUCCESS 
PC i RE TURN 

CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 



ROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE 
BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
ERROR PRINT ROUTINES. 



INPUT: 



RO 
Rl 
R^ 
R3 



RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOW ORDER ADDRESS 
EXPD MESSAGE BUFFER ADDRESS 
NUMBER OF BYTES TO COMPARE 



OUTPUT: 



CARRY 



SET - MESSAGE BUFFERS MATCH 

CLR - MESSAGE BUFFERS DON'T MATCH 



IMPLICIT OUTPUT: 

EXPMSG 
RECMSG 
RCVHIADC 
RCVLOADD 



BUFFER IS SET TO EXPD DATA 
BUFFER IS SET TO RECV DATA 
SET TO HIGH ORDER ADDRESS OF RECV 
SET TO LOW ORDER ADDRESS OF RECV 



000144 

000144 

011712 
000001 



000004 
002276 
002300 
003126 

017376 



CKMSG2 : : 

SAVREG 

CMP 

BLE 

MOV 

PRINTF 

MOV 

MOV 

MOV 

TRAP 

ADD 

5$: MOV 
MOV 
T5T 
BEQ 
JSR 
MOV 

lOS: CLR 



iSAVE R1-R5 UNTIL NEXT RETURN 
R3,*RECMSG-EXPMSGiQS0 IS COUNT ABOVE MAX ALLOWED? 
5$ jaSJO BR IF NO 

WECMSG-EXPMSG , R3 j SSD 



ODEBUGMSG 

*OEBUGMSG,-(SP) 

#1,-CSP5 

SP.RO 

C$PNTF 

#4.SP 

RO.RCVHIAOO 

Rl.RCVLOAD 

KTENABLE 

10$ 

PC.SETMAP 

RO.Rl 

R4 



jasD 



I SAVE RECV HIGH ADDRESS 

jSAVE RECV LOU ADDRESS 

: TESTING :iBOVE 28K? 

J BR IF NO 

jRETURN ADDRESS BIASED TO PAR6 IN RC 



:GET RETURNED ADDRESS 
(WORD IN BUFFER 



BIASED TO PARb 



TSV5 - GLOBAL AREAS MACRO Hl.200 .^O-MAR-84 06:44 PAGh W-6 
CKMSG2 - COMPARE EXPO RECV MESSAGE BUFFERS 



N4 



SfQ 00S2 



V669 


011644 


005005 




1370 


011646 


111264 


002314 


1371 


011652 


111164 


002460 


1372 


011656 


122221 




1373 


011660 


001401 




1374 


011662 


005205 




137S 


011664 


062704 


000001 


1376 


011670 


020403 




1377 


011672 


002001 




13 78 


011674 


000764 




1379 


011676 


005705 




1380 


011700 


001402 




1381 


011702 


000241 




1382 


011704 


000401 




1383 


011706 


000261 




1384 


011710 


000207 




1385 








1386 


011712 


120 


122 


1387 


012002 


045 


116 


1388 


01L"013 


040 


040 


1389 


01204e 


O^^^ 


05f 


1390 


012101 


124 


1C5 


1391 








1392 








1393 








1394 








1395 








1396 








1397 








1398 








1399 








1400 








1401 








1402 








1403 








1404 








1405 








1406 








1407 


012114 
012114 






1408 


012114 


004737 


006020 


1409 


012120 


004737 


017262 


1410 


012124 
012124 








012124 


104423 




l'"M 








I4i2 








1413 








1414 








1415 








1416 








1417 








1418 








1^19 








1420 








1421 








1422 









CLEAR ERROR SEEN FLAG 
SAVE EXPO FOR ERROR REPORT 
SAVE RECV FOR ERROR REPORT 
EXPO EQUAl, RECV? 
BR IF YES 

SET ERROR SE'.N FLAG 
jPOINT TO NEXT BfTE 
DONE ALL BYTES? 
BR IF YES 
DO NEXT BYTE 
ANY ERRORS SEEN? 
BR IF NO 
SET FAILURE 

SET SUCCESS 
RETURN 

.ASCIZ 'PROGRAM INTEhNAL ERROR -CKMSG2 MESSAGE BUFFF.R EXCEEDED- ' 135)0 
/HhmPi *♦♦/ 

/ TSSR ERROR CODZ REC'D - / 

/ AFTER DOING SOFT INIT/ 

/TEST: .../ 





CLR 


R5 . 


15$: 


MOVB 


(R2),EXPMSG(R4) ; 




MOVB 


(R1),RECMSG(R4) ; 




CMPB 


CR2)*,fRl)* ! 




8EQ 


25$ ; 




INC 


R5 I 


25$! 


ADD 


vn,R4 , 




CMP 


R4.R5 : 




BGE 


50$ I 




BR 


15$ ; 


50$: 


TST 


R5 J 




BEQ 


55$ ; 




CLC 






BR 


60$ i 


55$: 


SEC 




60$: 


RTS 


PC ! 



117 DEBUGMSG: 
04C FE9CM: .ASCII 
124 ERCM: .ASCIZ 
056 SIMSG; .A5CIZ 
123 TINERR: .ASCIZ 
.EVEN 

; ♦ 



PRINT ROUTINE TO FATAL SOFT INIT ERRORS 
INPUT : 

Rl CONTENTS OF TSSR AT ERROR 
SIDE EFFECTS: 

EXECUTES DROP UNIT TO CEASE TESTING 



SFIMSG: : 



BGNMSG SFIMSG 



1.10003: 



JSR 
JSR 
ENDMSG 

TRAP 



PC.PRITSSR 
PC . CKDROP 



CtMSG 



:PRINT CONTENTS OF TSSR REGISTER 
sDROP UNIT. IF ALLOUEC 



PRINT ROUTINE TO PRINT THE CONTENTS OF 

TSSR AMD A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET. 



INPUTS: 



Rl 
R4 



'SSR CONTENTS 

ADDRESS OF COMMAND PACKET 



w... 



TSV5 ulOB'U ARlrtS M^CRO MU>00 00 MAR 64 0{\iAA PAUK 1/ "/ 

CKM^Ga COMPARf. fcXPO RtCV MhbSAGH BUFFERS 



SEQ 00b 5 



1 y.i 

14^4 
1425 
14^6 



1428 
1429 
1430 
14?1 
1452 
1453 
1434 
143b 
1436 
1437 
143S 
1439 
1440 

1441 
1442 
1443 

1444 



1445 
1446 
144 7 
1446 
1449 
1450 
1451 
1452 
1453 
1454 
1455 

1456 

1457 



1458 
1459 

1460 
1461 
1462 
1465 
1464 
146r. 
1466 
146? 
1468 
1469 
1470 



012126 
012126 
012126 
012152 
012156 
012142 
012142 
012142 



012144 
012144 
012144 
012150 
012154 
012160 
012160 
012160 



012162 
012162 
012162 
01216*> 
012166 
012166 



004 73; 006020 
012700 000004 
004737 007446 



104423 



004757 006020 
012700 000002 
004737 007446 



104423 



004737 006020 



104423 



BC.NMSG PKTSSR 



PKTSSR: 


• 






JSR 


PC.PRITSSH 




MOV 


<>4,R0 




JSR 


PC.PRIPKT 




eNOMSG 




L 10004: 







iPRINI THt CONTf^NTS Of ^O'jR Rt(.I'>TFR 

I NO. OF WORDS IN PACKt T 

;PRrNT THF CONTFNTS OF COMMAND PAC'^t T 



TRAP 



CIMSCi 



PRINT ROUTINL TO PRINT THf CONTENTS OF' 
TSSR AND A GFT STATUS COMMAND PACKET. 



INPUTS: 



Rl 
R4 



BGWSG 

PKTGETSi : 

JSR 
MOV 
JSR 
ENOMSG 

L 10005: 

TRAP 



TSSR CONTENTS 

ADDRESS or COMMAND PACKET 



PKTGETS 

PC. PRITSSR 
02. HO 
PC.PRIPKT 



C$M5G 



iPRINT THE CONTENTS OF TSSR REGISTER 
iNO. OF WORDS IN GET STATUS PACKET 
iPRINT THE CONTENTS OF COMMAND PACKET 



;r^INT TSSR ERRORS FOR INITIALISATION TESTS 
INPUTS: 



Rl 
R4 



TSSR CONTENTS 

ADDRESS OF COMMAND PACKET 



SFFMSG: i 



1-10006: 



BGNMSG SFFMSG 

JSR PC. PRITSSR 
ENOMSG 



(PRINT CONTENTS OF TSSR REGISTER 



TRAP C>MSG 

.SBTTL PKTMtS - PRINT TSSR AND MESSAGE T'JFFER 



PRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 
BUFFER c-QR ERROR REPORTS 



INPUTS: 



Rl CONTENTS OF TSSR 

R2 LOW ORDER MESSAGE BUFFER 

R5 HIGH ORDER MESS'^GE BUFFER ADDRESS 

NOTE: R5 XS IGNORED IF KTENABLE FLAG IS CLEAR 



TSV^ i;i OH'U ARt-'\S MACRO MKX)0 ."'0 MAP HA 08:44 PA(it 17 fl 

PKTMES PRINT TSbR AND NLSSAUh UUfff-lR 



SF^J 00S4 



1471 

14:.^ 

1475 
1474 
1475 
14^6 

1477 



1478 
1479 
1490 
1481 
148^ 
1485 
1484 
1485 
14bfe 
1487 
1488 
1489 
1490 

1491 
1492 
1493 
1494 



1495 
149f, 
1497 
1498 
1499 
1500 
1501 
1502 
1505 
1504 
1505 
1506 
1507 
1508 

1509 

15i0 
1511 
1512 
1515 
1514 



1515 
1516 
1517 
1518 



012170 
012170 
012170 
012174 
012176 
012200 
012204 
012204 
012204 



012206 
012206 
012206 
012212 
012216 
012222 
012222 
012222 



012224 
012224 
012224 
012250 
012254 
012256 
012242 
012246 
012246 
012346 



004 757 
010200 
010301 
004 737 



104423 



006020 



014322 



004 737 
016501 
004 737 



104423 



010552 
000002 
006020 



012700 

00573/ 
001402 
012700 
004737 



104423 



000007 
002220 

000010 
014632 



BGNMSG PKTMES 



PKTMLii! 


J 






J^;R 


PC.PRITSnR 




MOV 


R2.R0 




Mnv 


R3.R1 




J5R 


PC.PRMESS 




ENDMSG 




L 10007: 








TRAP 


C$MSG 




.SBTTL 


ADD55R - 



jPRINT CONTtNTS OF TSSR 
ll OU ORDER AODRFS', 
(HIGH ORDER '\DDRE'iS 
(PRINT THE MESSAGE BUFTER 



- PRINT TEST ADDRESS AND TOSR 



(PRINT ROUTINE TO PRINT THE CONTENTS Of 
(TSSR AND A MEMORY TEST ADDRESS 



«^IR5T DEVICE UNIBUS ADDRESS 
UGH ORDER MEMORY TEST ADDRESS 
-Ou ORDER MEMORY TEST ADDRESS 



(INPUTS 


• 


( 

• 

( 

; • 


R5 

ERR 

ERRi 



ADDSSR: 



L 100 10: 



BGNMSG ADDSSR 



JSR 
MOV 
JSR 
ENDMSG 



PC.PRITADD 

TSSfl(R5),Rl 

PCPRITSSR 



(PRINT MEMORY TEST ADDRESS 

(GET CURRENT TSSR 

(PRINT THE CONTENTS Or TSSR REGISTER 



TRAP CIMSG 

.SBTTL MSGEXP - PRINT WRITE CHAR. EXPD RECV MESSAGE BUFFERS 

PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 
IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE Bl^'FER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADO- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



BGNMSG MSGEXP 



MSGEXP: 


• 






MOV 


07. RO 




TST 


EXTFEA 




BEQ 


5« 




MOV 


08. .RO 


5$: 


JSR 
ENDMSG 


PC.PRMSGEXP 


LlOOll: 








TRAP 


C$MSG 




.SBTTL 


FIFF.XP - P 


( » 

( 







(ASSUME NO EXT FEATURES 

(EXT FEATURES SET? 

(BR IF NO 

(EXT FEATURE BUFFER IS 8 WORDS 

(PRINT EXPD/RECV MESSAGE BUFFERS 



PRINT FIFO EXP/RECV DATA 



(PRINT ROUTINE TO PRINT FIFO EXP/RECV DATA 



TSV-< ol Or.Al Am as macro MIPOO .?OMAR «A OH ; 44 PA(,t- W-9 

FinXP PRINT FIFO FXP'-RtCV DATA 



D'; 



sta oosi 



151^ 

1521 
1522 
lb2? 
1524 
1525 

r.>26 

1527 
1528 



1529 



1530 
1531 
1532 



1533 
1534 
1535 
1536 
1557 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
15^5 
1546 
1547 
1548 
1549 

1550 
1551 
1552 
1553 



1554 
1555 



012250 
012250 
012250 
012250 
012252 
012256 
012262 
012264 
012266 
012272 
012272 
012276 
012302 
012504 
012306 
012312 
012514 
012320 
012320 
012320 
012322 
0.12371 



012430 
012430 
012430 
012434 
012436 
012440 
012440 
012442 
012446 
012450 
012452 
012456 
012460 



010146 
012746 
012746 
010600 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
010100 
004737 



104423 
045 
045 



HI 



IMPLICIT INPUTS: 



BYTE COUNT 



EXPMSG - EXPECTF-0 MFSSAGE BUFFFR CCONIAINS f"iro DATA ONL f 
RECHSG - RF.CFIVF.l) MESSAGE BUFFER (.CONTAINS FIFO DATA ONl.Y) 



; - 

FIFEXP; 



8GNMSG FIFEXP 



01.^522 
000002 



000006 

012371 
000001 



000004 
01:3202 



116 
116 



045 
045 



L10012: 

FIFIMSG: 
FIF2MSG: 



TRINTX 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADO 

MOV 

JSR 

ENOMSG 

TRAP 



#FIF1MSG,R1 

Rl, CSD 

*FrFlMSG,-CSP) 

02. (SP) 

SP.RO 

CIPNTX 

(>6.SP 

*fIF2MSG 

*fIK2MSG,-(SP) 

*1,-(SP) 

SP.RO 

CiPNTX 

M.SP 

Rl.RO 

PCPRBYTEXP 



;PRXNT BYTES TRANSFERRED 



(PRINT HEADER MSG 



jGET BYTE COUNT 

iPRINT FIFO BYTES IN ERROR 



.EVEN 
.SBTTL 



Cf-MSG 
.ASCIZ 

-MSCIZ 



•#NtfA NUMBER OF BYTES TRANSFERRED 
'*N*A FIFO DATA PYTES IN ERROR:' 



*D2' 



MSG5TAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 



J * 



PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 



IMPLICIT INPUTS: 



012701 012472 

012100 

001410 

010046 

012746 000001 

010600 

104415 

062706 000004 

000766 

012700 0000^2 



MSGSTAT 
10$: 



fcXPMSG - EXPECTED 

RECMSG - RECEIVED 

RCVHIAOO- RECEIVED 

RCVLOAOD- RECEIVED 

BGNMSG MSGSTAT 



MESSAGE BUFFER 
MESSAGE BUFFER 
MESSAGE BUFFER 
MESSAGE BUFFER 



HIGH ORDER ADDRESS 
LOW ORDER ADDRESS 



20$ 



hOV 

MOV 

BEQ 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

BR 

MOV 



OSTATCOO.Rl 

(RD^.RO 

201 

RO 

RO, -(SP) 

01, (SP) 

SP.RO 

C$PNTX 

04. SP 

10$ 

010. .RO 



I ASCII ADDRESS TABLE 
iDONE ALL MSG LINES? 
tBR IF YES 
IPHINT STATUS BIT NAMES 



;Dn ANOTHER MSG LINE 

iNl^lBER OF WORDS IN A READ STATUS BUFFER 



• t 



TSV? ul.OBAL ARtAS MACRO Nl^OO ^0-liAR «/) 08:4^? PAGt 17- 10 
MSGSTAT PRINT STATUS HEADER AND MESSAGE BUFrERS 



bEQ 00^6 



1556 
155? 



1556 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
lbJ9 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 

1581 
1582 
1583 
1584 



1585 
1586 

1587 
1588 



1589 

1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1596 
1599 
1600 
1601 
1602 



012464 
0124 70 
012470 
012470 

012472 
012510 
012552 
012643 
012734 
013025 
013067 



013144 
013144 
0x3144 
013150 
013152 
013154 
013154 
013156 
013162 
013164 
013166 
013172 
013174 
013200 
013204 
013204 
013204 

013206 
013226 
013301 
013400 

013477 
013576 
013675 
013774 



004737 014632 



104423 

012510 
045 
045 
045 
045 
045 
045 



012552 
116 
116 
116 
116 
116 
116 



012701 
012100 
C01410 

010046 
012746 
010600 
104415 
062706 
000766 
012700 
004737 



104423 

013226 
045 
045 
045 
045 
045 
045 
045 



013206 



000001 



000004 

000012 
014632 



013301 
116 
116 

116 
116 
116 
116 
116 



012643 
045 
045 
045 
045 
045 
045 



013400 
045 
045 
045 
045 
045 
045 
045 



L10013: 



JSR 
ENDMSG 



TRAP 



PC.PRMSGEXP 
C$MSG 



i PRINT tXPD/RECV MESSAGE BUrFbRb 



STATCOD: 
1$: .ASCI/ 
.ASCIZ 
.ASCI2 
, ASCIZ 
.ASCIZ 
.ASCIZ 



2< 
3$ 

4$ 
5$ 
6$ 



.WORD 
KN«iA Tope 

#WA 
itNiiA 
f(N«A 

i^NliA 



Tape 



l$,2J,3$,4$.5i,6$.0 
Bus Signals in Uord 06; 

PrtRERR<15> 

IRESV2<14> 

IRESV1<13* 
6u9 Signals 

DATMI5<7> 



.EVEN 



ItOT <12^ 

II0ENT<11> 

ICER <10> 

In Word 09: ' 

ILW<6> 0UTRDY'5> 



lEMK <9> 
IHER *8> 
ISPEED^7> 



IR0r<6> 
I0NLc5> 
ILDP<4> 



IRW0<2>' 
irBV<l>' 

IFPT<0>' 



INRDy<4> 



t *■ 



.SBTTL MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 



i PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
IMPLICIT INPUTS: 

EXPMSG EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH OWDER AODRE'iS 

RCVLOADO- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



MSGLOOP : 
10$: 



BGNMSG MSGLOUP 



20$ 



U10014: 



MOV 

MOV 

BEQ 

PRINTX 

MOV 

MOV 

mv 

TRAP 

ADO 

BR 

MOV 

JSR 

ENOMGG 

TRAP 



«_00PC0D,R1 

CR1)*,R0 

20$ 

RO 

RO.-CSP) 

«1.(SP) 

SP.RO 

C$PNTX 

*4,SP 

10$ 

010. ,R0 

PC.PRMSGEXP 



t ASCII ADDRESS TABLE 
(DONE ALL MSG LINES? 
I BR IF YES 
(PRINT STATUS BIT NAMES 



I DO ANOTHER MSG LINE 

jNLMBER OF WORDS IN A READ STATUS BUFFER 

(PRINT EXPD/RECV MESSAGE BUFFERS 



C$MSG 



LOOPCOO: 
1$: .ASriZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



2$ 
3$ 

4$ 
5$ 
6$ 
7$ 



.WORD 
itNKA Tap« 



1$. 2$. 3$. 4$. 5$. 6$, 7$. 

Bu« Loopback Signals in Word 08 

IRESV2<14> 
IWRT->IIDENT<11> 
IEOIT->lHeR ^08> 
ITA01->IONL <0?> 
IRWU ->IRWD <02> 



#NiriA 

1i^MA 

#N«A 

#NtfA 

tfN#A 

tfNi^A 
EVEN 
SBTTL MSGSU6 - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 



PARERR<15> 

IHISP->IE0T<12> 
IWFM ->IFMK<09> 
ITA00->IRDY<O6> 
IREW ->IDBY<03> 
IGO -ilFPT^OO^ 





IRESVl 


<13> 


IREV 


■>ICER 


<10^ 


IFAO 


->ISPEED 


<07> 


lERASE 


■>ILDP 


<04^ 


IFEN 


-^IFBY 


<01> 



(PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 



TSV-^ ■ ot OBAl *^Rt.AS MACRO M1?00 ."^O MAP 84 0»:44 PAtit. iMl 

MSGSUe - PRINT WRITt SUtJSYOTtM MESSAbE BUf- f LR 



('■'.. 



SEQ OO'i? 



1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 

1613 
1614 
1615 



1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
162 7 
1628 
1629 

1630 
1651 
1632 
1633 
1634 



1635 
1636 
1637 
1636 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 



014022 
014022 
014022 
014026 
014032 
014032 
014032 



IMPLICIT INPUTS: 



EXPM5G - EXPECTED MESSAGE BO'f [ER 

RFCMSG - RECEIVED MESSAGE BUrrER 

RCVHIADD- RECEIVED MESSAGE BUfTER HIGH ORDER ADORES? 

RCVL.OADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



012700 000012 
004737 014632 



104423 



MSGSUB 



L 10015: 



BGNi-tSG MSGSUB 



MOV 
JSR 
ENDMSG 

TRAP 

.SBTTL 



<>10. »R0 
PC.PRMSGEXP 



;SIZE OF WRITE SUBSYSTEM BUFFER 
jPRINT EXPD/RECV MESSAGE BUFFERS 



C$MSG 

MEHADD - PRINT MEMORY ADDRESS DATA ERROR 



014034 
014054 
014054 
014O40 
014044 
014050 
014054 
014054 
014054 



PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 

IMPLICIT INPUTS: 

ERRHI - MEMORY ERROR HIGH ORDER ADDRESS 

ERRLO - MEMORY ERROR LOW ORDER ADDRESS 

EXP - EXPECTED DATA 

RECV - RECEIVED DATA 



004737 010236 

013701 002224 

013702 002226 
004737 010020 



104423 



MEMADD : 



BGNMSG MEMADD 



L10016: 



JSR 

hOV 
MOV 
JSR 
ENOMSG 

TRAP 

.SBTTL 



PC.PRIADD 
EXPD.Ml 
RECV.R2 
PC.PRIXOR 



(PRINT MEMORY ADDRESS IN ERROR 
(GET EXPO DATA 
(GET RECEIVED DATA 
i PRINT EXPD/RECV 



C«M5G 

PRAMPKT - PRINT RAM AND PACKET DATA 



.PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
:WHEN THE RAM DATA DOES NOT MATCH. 

(INPUTS: 

R4 POINTER TO COMMAND PACKET 

IMPLICIT INPUTS: 



RAMOATA 
RAMSIZ 



DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RAMSIZ-O THEN DEFAULT TO 8. 



IMPLXCI'' OUTPUTS: 

RAriSI/ SET TO 



[•,'■: 



TSV? ■ a.OBfW ARtAS MACRO Ml?O0 ^O-MAR^O^ 00:44 PAtit 17-12 

PRAMPKT PRINT RAM AND PACKET DATA 



1654 

1656 
1657 
1658 
16f-9 
1600 
1^61 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 



1671 
1672 
1675 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1695 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
X701 



014056 
014056 
014062 
014066 
014070 
014072 
014074 
014104 
014106 
014112 
014116 
014126 
014132 
014140 
014146 
014146 
014150 
014154 
014160 
014162 
014166 
014172 
014174 
014176 
014202 
014204 
014210 
014212 
014216 
014220 
014222 
014226 
014250 
014234 

014236 



012701 
005002 
122124 
001005 

000456 
116105 
116405 

042703 
116157 
116437 

010546 
013746 
013746 
010246 
012746 
012746 
010600 
104414 
062706 
005202 
005757 
001404 
020237 
003724 
000403 
020227 
002720 
005037 
000207 

045 



PRAMPKT: 



002234 



177777 
177777 

177400 
177777 
177777 



002224 
002226 

014236 
000005 



0C0014 
OOP. 2 74 
002274 

0000 10 
002274 

116 



5$ 



7$ 



SAVRF.G 

MOV 

Cl-R 

CMPB 

BNt 



*RAMDATA,R1 
R2 

CR1)*,(R4)* 
7i 



FORCtRROR 



7i,N0TSSR 



002226 
002224 



10$ 



15J 
201 
25$ 



Em 10$ 

MOVB -1CR1).R5 

MOVB -1CR4).R3 

XOR R5.R3 

BIC 0177400, RS 

MOVB -ICRD.RECV 

MOVB -1CR4>.EXPD 

PRINTB ^AMASC . R2 . RECV , EXPD , R3 

MOV R3.-(SP) 

MOV cXPD. -CSP) 

MOV RECV. -(SP) 

MOV R2.-(SP) 

MOV #RAMASC,-(SP) 

MOV *5.-CSP) 

MOV SP.RO 

TRAP C$PNTB 

ADD 014.5P 

INC R2 

TST RAMSIZ 

BEQ 15$ 

CMP R2, RAMSIZ 

BLE 51 

BR 25$ 

CMP R2 . C>8 . 

BLT 51 

CLR RAMSIZ 

RTS PC 



SIU 0058 



(SAVE R1-R5 UNTIL NEXT RETURN 

(DATA FROM THE RAM 

:INIT BYTE NUMBER 

J COMPARE EXPECTED, RECEIVED 

;8R IF NO MATCH 



J GET 
jGET 
J XOR 
I LOW 
(GET 
jGET 



RECV RAM DATA 
EXPD PACKET DATA 
EXPD/RECV 
BYTE ONLY 
RECEIVED RAM DATA 
EXPECTED RAM DATA 



;UPDATE BYTE COUNT 
(DEFAULT TO 8,? 
J BR IF YES 
;DONE ALL BYTES? 
;BR IF NO 

jDONE DEFAULT NUMBER OF BYTES? 

iBR IF NO 

;SET DEFAU.T RAMSIZ 

J RE "^ URN 



i(N*A BYTE: i*D2KA RAM; i<03*A Packet: #n5KA ^'0R:«t03' 



045 RAMASCj .ASCI7 
.EVEN 
.SETTL PRMESS - PRINT CONTENTS OF MESSAGE BUFFtR 



014, -^22 



THIS ROUTINE PRINTS THE CONTENTS OF 

■^HE 7 OR 8 WORD MESSAGE BUFFER RETURNED BY THE 

TSV 05. 

INPUT : 

RO LOW ORDER ADDRESS OF MESSAGE BUFFER 
Rl HIGH ORDER ADDRESS OF MESSAGE BUFFER 

NOTE: Rl IS IGNORED IF KTFNABLE FLAG IS CLEAR 

THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 



PRMESS: 



-J 



TSV5 LU.ORAl ARFAS MACRO M1200 ^^0 MAR-8^ 0&:AA PAGt 17-13 
PRMtSS - PRINT CONTENTS Of MESSAGt BUFFf R 



SEQ 00^9 



170^ 

i7o;^ 

1704 

1705 
1706 
1707 
1708 
i:'09 
1710 



1711 



171? 
1713 
1714 
171S 
1716 
1717 
1718 



1719 
17i?0 
IVc'l 
1722 
1723 
1724 
1725 
3 726 
1727 
1728 
1729 
1750 
1751 
1732 
1733 
1734 
1/35 
1736 
1737 
1738 
1739 



014322 
014326 
014330 
014334 
014336 
014340 
014342 
014344 
014346 
014346 
014350 
014352 
014356 
014362 
014364 
014366 
014372 
014372 
014376 
014402 
014404 
014406 
014412 
014414 
014416 
014420 
014422 
014426 
014430 
014430 
014432 
014454 
014440 
014444 
014446 
014450 
014454 
014456 
014462 
014464 
014466 
014474 
014476 

014500 
014545 
014603 



010005 
005737 
001001 
005001 
010103 
006100 
006101 

010546 
010146 
01274'' 
01274*5 
010600 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
005004 
010501 
010300 
001403 
004737 
010005 

012546 
010446 
012746 
012746 
010600 
104415 
062706 
005204 
020427 
003005 
002761 
032763 
001355 
000207 

045 
045 
045 



003126 



lOJ 



014500 
000003 



000010 

014545 
000001 



000004 



017376 



014603 
000003 



0000 10 
000007 

000200 000012 



20$ 



116 
116 
116 



045 
045 
045 



50t: 

PROASC: 
PfllASC: 
PRASC: 



I 



SAVRfG 

MOV 

T'jT 

tNt: 

CLH 

MOV 

ROL 

ROl 

PRINTX 

MOV 

MOv 

MOV 

MOV 

MOV 

TRAP 

ADD 

r^RINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

CI R 

MOV 

MOV 

BEG 

J5R 

MOV 

PRINTX 

MOV 

HOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

INC 

CMP 

BGT 

BLT 

BIT 

BNE 

RTS 

.ASCIZ 

.ASCI? 

.ASCIZ 

.EVCN 

..SBTTL 



R0,R5 

K TENABLE 

10$ 

Rl 

P1.R3 

RO 

Rl 

V^PR0ASC.R1.R5 

R5. -CSP) 

Rl, ^fS"^) 

V»PROASC, -CSP) 

«3 . ( SP ) 

SP.RO 

CJPNTX 

*10,SP 

^PRIASC 

*PR1ASC.-(SP) 

*1.-(SP) 

SP.RO 

CiPNTX 

^>4.SP 

R4 

R5.R1 

RS.RO 

20 i 

PC.SETMAP 

R0.R5 

*PRASC.R4.CR5)* 

(R5)f, -CSP) 

R4- CSP) 

*Piw\SC.-CSP) 

«3, (SP) 

SP.RO 

CIPNTX 

^JIO.SP 

R4 

R4.07 

501 

20 » 

*X2.EXTF.XST2(R3 

20$ 

PC 



(SAVE THE REGI13TERS 
(SAVE LOW ORDER ADDRESS 
1 ADDRESS ABOVE 28K? 
jBR IF YES 

iSET HIGH ORDER ADDRESS 
(SAVE HIGH ORDER ADDRESS 
(SHIKT BIT15 TO C BIT 



ro 



; SHIFT TO HIGH 
jPRINT MESSAGE 



ORDER KOR PRINTOUT 
BUFFER ADDRESS 



; PRINT HEADER FOR CONTENTS 



J NUMBER OF THE NEXT WORD 

:COPY LOW ORDER ADDRESS 

;C0PY HIGH ORDER ADDRESS 

iSR IF NOT ABOVE 28K 

I SETUP PAR ADDRESS IN RO 

;GET PAR FORMAT ADDRESS ABOVE 28K 

jPRINT THE CONTENTS OF MEMORY BUFFtR 



J NUMBER OF THE. NEXT 

iDONE ALL YET ? 

I BRANCH IF ALL DONE 

jPRINT FIRST 7 WORDS 

) I EXTENDED FEATUTES ON ? 

(PRINT EXTENDED STATUS WORD 

iRET'JRN 



'«N«A M«8«ao« Buff«r Ackiress - 
'*N#A M«flsao« Buffer Contents: 
'liNirfA UorcMOliiA: liO' 



nomo^ 



PRMSGEXP - PRINT EXPD/RECV MESSAGE BUfTERS 



(ROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS 
RO - NUMBER OF WORDS IN BUFFER 
IMPLICIT INPUTS: 



l"';. 



TSV5i lU OtU\L rtHKAS MACRO MU^OO ^0MAR-a4 00:44 PAGt lV-14 

PRMSGEXP PRINT EXPD/RlrXV MESSAGE BUFFERS 



SEQ 0060 



1740 
1/41 
174.-^ 
3.745 
1744 
174S 
1746 
1 ;4 7 

1 ;4« 

1749 
1750 
1751 
1752 
1753 



1754 



1755 
1756 
1757 
1758 
1759 
1760 
1761 



1762 
1765 
1764 
1765 
1766 
1/67 
1763 
1769 
1770 
1771 
1772 
1775 
1774 
1775 



014632 
014632 
014636 
014640 
014644 
014646 
014652 
014654 
014656 
014656 
014660 
014662 
014666 
014672 
014674 
014676 
014 702 
014702 
014706 
014712 
014714 
014716 
Ol47?c 
014724 
014730 
014734 
014736 
014740 
014750 
014750 
014 752 
014 754 
014756 
014760 
014764 
0147/0 
014772 
014774 
015000 
015002 
015004 
015006 
015010 

015012 
015057 
015115 



010005 
013700 
010004 
013701 
006100 
006101 

010446 
01C\46 
012746 
012746 
010600 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
005004 
012701 
012702 
011100 
011203 



010346 
012246 
012146 
010446 
012746 
012746 
010600 
104415 
062706 
0052C4 
020405 
002001 
000 752 
000207 

045 
045 
045 



eXPMSG - tXPECTEO 

RECM5G - RcCGIVED 

HCVHIAOO- RECEIVrO 

RCVLOADD- RECEIVED 



MESSAGE 
MESSAGE 
MESSAGE 
MESSAGE 



BUfTER 
BUFFER 

BurrF,R 

BUFFER 



HIGH ORDER ADOREOS 
L.OW ORDER ADDRESS 



002300 
002276 



015012 
000003 



000010 

015057 
000001 



000004 

002314 
002460 



015115 
000005 



000014 



PRMSGEXP: : 

SAVREG 

MOV 

MOV 

MOV 

MOV 

ROL 

ROL 

PRINTX 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

CLR 

MOV 

'iUV 

20$: MOV 
MOV 
XOfi 

PRINTX 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
INC 
CMP 
BGE 
BR 

50$: RTS 



116 
116 
116 



045 PRMSGO 
045 PRMSGl 
045 PRMSG2 



.ASCIZ 

.ASCIZ 

.A5CIZ 

.EVEN 

.SBTTL 



R0.R5 

RCVLOADD, RO 

R0.R4 

HCVHIADD.Rl 

RO 

Rl 

OPRMSG0.R1.R4 

R4.-CSP) 

Rl.-CSP) 

*PRMSGO.-(SP) 

«3,-(SP) 

SP.RO 

CIPNTX 

OIO.SF 

*PRMSG1 

W>RMSG1.-(SP) 

01, -(SP) 

SP.RO 

CIPNTX 

04 , SP 

R4 

OeXPMSG.Rl 

0RECMSG.R2 

CRD.RO 

(R2),R3 

R0.R3 

0PRMSG2.R4.(R1)* 

ir5,-csp) 

tR2)». -(SP) 

(Rl)*, (SP) 

R4,-(SP) 

*PRMSG2, -(SP) 

*5.-(SP) 

SP.RO 

CIPNTX 

014. SP 

R4 

R4.R5 

SOI 

201 

PC 



iSAVfc R1-R5 UNTIL NEXT RETURN 
SAVE NUMBER OF WORDS 
GET RECV LOW ADDRESS 
COPY LOW ADDRESS 
GET RECV HIGH ADDRESS 
SHIFT BIT15 TO C BIT 
SHIFT TO HIGH ORDER FOR PRINTOUT 
PRINT MESSAGE BUFFER ADDRESS 



;PR1NT HEADER FOR CONTENTS 



J NUMBER or THE CURRENT WORD 

iGET EXPO BUFFER AGORESS 

;GET RECV BUFFER ADDRESS 

jGET EXPD 

:GET RECV 

(XOH EXPD/RECV 

.(R2)*.R3 



I NUMBER OF THE NEXT 
jDONE ALL YET? 
»BR IF YES 
»D0 ANOTHER 
iRETURN 



'^N#A M«ss»o« Buffer Address - *01*05' 

'^hMA Me««oo« Buffer Contents:' 

'#NKA WORD <WD2*A EXPD: #06KA RECV: *06*A 



XOR: K06 



PRBYTEXP ■ PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 



; ROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 



^ K) 



TSV-^i ul OBAl ARfAS MACRO M1?00 ?0-MAR -84 OH-AA PAGK 17-15 

PRB^TEXP PRINT ERROR ByTLS IN tXP/REC MtSSAGb. BU^ftR 



SEQ 0061 



1776 
17?/ 
17 76 
17 79 
17ftO 
1781 
1782 
1^83 
1 784 
1785 
1786 
1787 
1788 
1789 
1790 
1/91 
1792 
1795 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1801 
1802 
1805 
1804 



1 flOS 
1806 
18v/ 

i«oa 

180<i 

1610 
1811 

1012 

181 :^ 

1814 



1815 

1816 
1817 



015202 
015202 
015206 
015210 
015214 
015216 
015222 
015226 
015230 
015234 
015240 
015242 
015246 
015252 
015262 
015264 
015266 
015272 
015300 
015302 
015302 
015304 
015310 
015314 
015316 
015322 
015326 
015330 
C15332 
015536 
015346 
015350 
015550 
01.5360 
015560 
015362 
015364 

015370 
C15370 
015374 
015400 
01S404 
015406 
015410 
015414 

015416 



ONL. T THE F'IRST 8 ERRORS F.^■COUNTERED ARE PRINTED DUE TO SCREEN SPACE 
RO - NUMBER Or BYTES IN BUrrER 
IMPLICIT INPUTS: 



FXPMSG 
RECM5G 



- EXPECTED 

- RECEIVED 



MESSAGE BUKEER 
MESSAGE BUFFER 



PRBYTtXP: 



010005 

005037 002312 

005004 

012701 

012702 

111100 

042700 

110037 

111203 

042703 

110337 

122122 
001431 
005237 
023727 
101023 

010546 
013746 
013746 
010446 
012/46 
012746 
010600 
104415 
062706 

000404 



005204 
0i:0405 
00^001 

0O0717 

015746 
012746 
012746 
010600 
104415 
062706 
000207 

045 



002314 
002460 

177400 
015550 

17 '400 
015552 



002312 
002312 



015552 
015550 

015416 
000005 



000014 



20$ 



000010 



27$ 



00251? 
01550c' 
000002 



000006 



30 > 
35$ 



50S 



MOV 

CLR 

CI.R 

MOV 

MOV 

MOVB 

BIC 

MOVB 

MOVB 

BIC 

MOVB 

XOR 

CMPB 

6EQ 

INC 

CMP 

BHI 

PRINTX 

MOV 



R0.R5 

PRMNO 

R4 

OEXPMSG.Rl 

<WECMSG.R2 

(RD.RO 

«tC<377>.R0 

RO.PRBEXP 

(R2).R3 

#tC<377>.R3 

R3.PRBREC 

R0.R3 

CRn».(R2)* 

30* 

PRMNO 

PRMNO . *8 . 

30$ 



♦PRBMSG , R4 . PRBEXP , PRBREC , R3 
R3. CSP) 



iSAVE R1-R5 U^TIL. NEXT RETURN 

;SAVE NUMBER OF BYTES 

jINIT ERROR COUNT 

iNUMBER OF THE CURRENT B^TE 

[GET EXPO BUFFER ADDRESS 

(GET RECV BUFFER ADDRESS 

(GET EXPD BYTE 

{CLEAR UPPER BYTE 

iSAVE FOR ERROR REPORT 

iGET RECV BYTE 

(CLEAR UPPER BYTE 

(FOR ERROR REPORT 

XOR EXPD/P^ECV 

EXPD - RECV? 

BR IF YES 

(UPDATE ERROR COUNT 
(PRINTED 8? 
;BR IF YES 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

FORCEXIT 

BR 35 J 



PRBREC. -CSP) 
PRBEXP, -(SP) 
R4,-(SP) 
^RBMSG. -CSP) 
<?5.-(SP) 
SP.RO 
C$?NTX 
ftl4.SP 

50$ 



FOliCERROR 27$,N0TSSR 

INC R4 

l-:p '~'(4.r:5 

BGE 50$ 

UR 20$ 

PrUNTX <^RBTOT. PRMNO 

MOV PRMNO . C SP ) 

MOV *PRBTOT, -CSP) 

MOV <2. CSP) 

MOV SP.RO 

TRAP CtPNTX 

ADD #6 , SP 

RTS PC 



iSSO 

■ S80 

I NUMBER OF THE NEXT 

[DONF ALL YET? 

:BR IF YES 

J DO ANOTHER 

(PRINT TOTAL ERRO.^ COUNT 



; RE TURN 



IIG 



045 PRBMSG: .ASCIZ ' f<N#A BYTE ^D':iKA EXPU: K05*A RECV: *<03«A XOR; *<03 



TSV.^ (il OBAl ARl AS 
PRB>TEXP PRINT ERROF^ 



1818 
181^ 
1820 
1821 
182? 
1823 
1824 
1825 
182S 
182/ 
1828 
1829 

i«:^o 
i8:n 

1852 
1853 
1834 

18JS 
1636 



1837 
1833 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
184/ 
1648 
1849 
1850 

1851 
1852 



1853 
1854 
1855 
1656 
1857 
1858 
1859 
18S0 
1661 
1862 
1863 
1864 
1865 
1866 
1867 

ia68 



015503 

015550 
015552 



015554 
015554 
015554 
015560 
015560 
015560 



01556.' 
015562 
015562 
015566 
015566 
015566 



045 

000000 
000000 



liACRO M1200 20-MAR-84 08:44 PAGK 17-16 
BYTLS IN bXP/RtC MhSSAGK BUFFKR 

116 045 PRBTOT: .ASCI/ ' i<NKA NUMBER OF BYTRf; IN t.RROR - KD2' 

. hVLN 

PROtXP: .WORD iFXPD 

PRBRECr .WORD ;RF.CV 

.SBTTL F-XPREC - PRINT tXPD/RECV WORD DATA 



PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
INPUTS; 



004737 
104423 



010020 



004737 
104423 



007670 



Rl 
R2 



RFCEIVFD DATA 
EXPECTED DATA 



EXPREC: : 



L10017: 



BGNMSG EXPREC 

JSR PC.PRIXOR 

ENOMSCi 



iPRINT THE DATA 



TRAP CJMSG 

.SBTTL EXPBREC - PRINT EXPD/RECV BYTE DATA 



PRINT ROUTINE TO DISPLAY BYTE EXPD/t^ECV DATA 



INPUTS: 



Rl 
R2 



RECEIVED DATA HrTE 
EXPECTED DATA BYTE 



BGNMSG EXPBREC 
EXPBREC: : 

JSR PC.PRIBXOR 

ENDM5G 
L 10020: 

TRAP C$MSC 



iPRlNT THE DATA 



.SBTTL RAMERR ■ PRINT RAM AND PACKET DATA 

*■ 

PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
INPUTS: 

R4 POINTER TO COMMAND PACKET 

IMPLICIT INPUTS: 



RAMDATA 
RAMSIZ 



DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RAMSI/»0 THEN DEFAULT TO 8. 



St a 0062 



TSV.^ ul ,U'W\1 AREAS MACRO MK'OO 

RAMhRR PRINT RAM AND PACKET DATA 



1869 
IS.'O 
1871 

18/r^ 

187? 
1874 
18"5 



18 ;6 

1877 



1878 
1879 
1880 
1881 
188.-^ 
168? 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
189? 
189? 
1894 
189S 
1896 
1897 
1896 
1899 
1900 
1901 

190^" 
1903 
1904 



190!^ 
190f. 
l'J07 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 



015570 
015570 
015570 
0155''4 
015574 
015574 



015576 
015576 
015576 
01560? 
015606 
015606 
015606 



004757 014056 



104423 



004737 01055? 
004737 014056 



104423 



?0-MAR 84 08; 44 PAU. 17 17 



IMPLICIT uurpurs: 

RAM5I/ StT TO 



SfcQ 0063 



RAMERR: . 



I lOOiH: 



BGNMSG RAMFRR 

J5R PC.PRAMPKT 
ENDMSG 



:PRINT RAM/PACKtT DATA 



TRAP CJMSG 

.SBTTL RAMTAOn - PRINT TEST ADDRESS, RAM AND PACKET DATA 

♦ 

PRINT ROUTINE TO DISPLAY RAM/PAn<ET DATA 
INPUTS: 

R4 POINTER TO COMMAND PACKET 
IMPLICIT INPUTS: 



RAMDATA 
RAMSIZ 

ERRHI 
ERRLO 



DATA AS READ TROM THE RKM 
NUMBER OF BYTES IN PACKET 
IF RAMSIZ-0 THEN DEFAULT TO 8. 
HIGH ORDER TEST ADDRESS 
LOW ORDER TEST ADDRESS 



IMPLICIT OUTPUTS: 

RAMSIZ SET TO 



BGNMSG RAMTADD 
RAMTAOD: : 

JSR PC.PRITAOU 

JSR PC.PRAMPKT 

ENOMSG 
L10022! 

TRAP CIMSG 



iPRTNT TEST ADDRESS 
J PRINT RAM/PACKET DATA 



.SBTTL RAMEXP - PRINT RAM EXPD/RECV DATA 

PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
INPUTS: 



Rl 
R2 
R4 



RECEIVED DATA 
EXPECTED DATA 
CONTROLLER RAM ADDRESS 



015610 
015610 



RAMEXPj! 



BGNMSG RAMEXP 



M' 



;SV.^ in.OBAl ARr.AS MACRO MK'OO .?0-MrtP-8'l OS:^^ PA(iK 17-10 

RAMbXP PRINT RAM EXPO/flLCV DATA 



SEQ 0064 



1919 


015610 


042701 


17 740C 


19^0 


015614 


042702 


17 7400 


1951 


015620 


004 73/ 


010144 


1922 


015624 


004737 


010020 


1923 


015630 
015630 








015630 


104423 




1 -.^^4 








1925 








1926 








1927 








1928 








1929 








1950 








1931 








1932 








1953 








1934 








1955 








1936 








1937 


015632 

01*:652 






1938 


015632 








015632 


012746 


015660 




015636 


012746 


000001 




015642 


010600 






015644 


104415 






015646 


062706 


000004 


1939 


015652 


004737 


010020 


1940 


015656 
015656 








015656 


104423 




1941 








1942 


015660 


045 


116 


1943 








1944 








1945 








1946 








194 7 








1948 








1949 








1950 








1951 








1952 








1953 








1954 








1955 








1956 








1957 


015760 
015760 






1958 


015760 


010246 




1959 


015762 


042702 


177400 


1960 


015766 








015766 


010246 






015770 


012746 


016020 




(■} S7 /'I 


012746 


000002 




01()000 


010600 





L10023 



BIC 
BIC 
JSR 
JSR 
FNDMSG 

TRAP 



V.'tC<37/^.Rl 
0tC<577>,R2 
PC.PRIRAM 

PC.PRIXOR 



CiMS(; 



;SAVF; nXFO ram data 13 f^ 
:SAVh EXPL) RAM DATA FUTB 
I PRINT THE, RAM ADDRESS 
i PRINT THE" DATA 



.SBTTL TTMt:XP - PRINT TIMER A,B AND FXP/RtC 

♦ 

PRINT ROUTINE 10 DISPLAY EXPD/RECV DATA 

AND TIMF.R A»B HtADER MESSAGE 



INPUTS: 



Rl 
R2 



RFCEIVEO DATA 
EXPECTED DATA 



TIMFXP: ; 



BGNIiSG TIMEXP 



L 10024: 



PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADO 

JSR 

ENDMSG 

TRAP 



0TIM5G0 

#TIMSG0, -CSP) 

<>1. -CSP) 

SP.RO 

C$PNTX 

M.SP 

PC.PRIXOR 



; PRINT HEADER 



[PRINT THE DATA 



045 



TIMSGO: .ASCI/ 
.EVEN 

.SBTTL 



C$MSG 

'#N^A TIMER A STATUS IS IN BIT 3*NKA TIMER B STATUS IS IN BIT 2 

BADSSR - PRINT TSSR tRRURS UN DATA TRANSFERS 



PRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS 
INPUTS: 



Rl 
R2 



CONTENTS OF TSSR 
DATA WRITTEN (8 BITS) 



BGNMSG BADSSR 



BADSSR : : 




MOV 


R2, (SP) 


BIC 


0177400. R2 


PRINTB 


0XrERASC,R2 


MOV 


R2, -(SP) 


MOV 


0XFERA5C. -(SP) 


MOV 


02, CSP) 


MOV 


SP.RO 



I SAVE DATA TRANSFERRED 
iGET JUST ONE BYTE 



N!:. 



Vl^V.^ ol Onni ARi AS -IACPO MIPOO <'^0MAR M 08:^14 PA\Gt 1/-19 

BADSSR - PRINT T^^SR EPPORf. ON DATA TRANSFb'RS 



S£Q 006t> 





016002 


10441.. 






TRAP 


C$PNTB 




016004 


062706 


0';ooo6 


ADO 


^K^.SP 


1961 


016010 


012602 




MOV 


(SP)* .R2 I RE STORE R/' 


196? 


016012 


004757 


006020 


J:,R 


PC PRITSSR jDECODE TSSR CONTE 


1965 


016016 
016016 






b'NDMSCi 
L 10025: 






016016 


104423 




TRAP 


CJMSG 


1^*64 


016020 


045 


116 


045 XPERASC. 


.ASCI/ '#N#A Dnt.n Transferred ^ i<03' 


196^ 








.SBTTL 


GLOBAL SUBROUTINES SECTION 


1966 












1967 








; * * 




196b 










IMF GIOBAL SUBROUTINES SECTION CONTAINS THE SUJHOUTINFS 


196'^ 










THAT ARE USED 


IN MORE THAN ONE TEST. 


1970 










; - - 




1971 








.SBTTL 


SOFINIT ■ SOFT INITIALIZE OF CONTROLLER 


19;^> 












1973 








; ♦ 




1974 














1971) 










ROUTINE TO DO 


A SOFT INITIALIZE Of THE CONTROLLER 


19/6 










BY WRITING INTO THE TSSR REGISTER. AFTER THE INIT. 


197'' 










THf. TSSR REGISTER IS TESTED EQR ERRORS. ANY ERROR',: 


19 78 
19 79 










DETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS. 


19.iO 










INPUTS: 




i9ai 














1982 










R5 


ADDRESS OF FIRST REGISTER 


198? 














1984 










OUTPUTS: 




198b 














1986 










RO 


CONTENTS OF TSSR, IF ERROR 


198/ 










CARRY 


SET IF INTT UAS OKAY 


1 988 
r*89 












CLEAR IF FATAL ERROR 


l'(90 

I'-i'U 










CALLING SEQUENCE: 


199.' 










MOV 


0A0DRESS.R5 


1995 










JSR 


PC. SOFINIT 


1994 










BCS 


CONTINUE 


199b 
1996 










ERRDF 


;REPORT FATAL ERROR 


1997 














1998 












1999 


016054 






SOFINIT: : 




?000 


016054 






SAVHEG 


J SAVE THE REGISTERS 


^001 


016060 


012765 


000000 


000002 MOV 


*0.TSSR(R5) : DO THE INIT. 


POO? 


016066 


004 737 


016330 


JS,^ 


PC.UAITi= ; WAIT FOR SSR 


20O3 


0160 72 


016500 


000002 


MOV 


TSSI R5),R0 iGET THE TSSR REGISTER 


2004 


016076 


010004 




MOV 


RO,lM ;TSSR CONTENTS 


2005 


016100 


042704 


176277 


BIC 


^tC<HIA0DR!0Fl.>,R4 


2006 


016104 


052704 


002200 


BI^. 


#SS/^!NBA.R4 ;R4 HAS EXPECTED CONTENTS 


2007 


016110 


020400 




CMI' 


R4.R0 lONLY EXPECTED BITS SET ? 


2008 


016112 


001402 




BEiJ 


5$ iBRANCH IF OKAY 


2009 


016114 


000241 




CL : 


J CLEAR THE CARRY FOR ERROR 


2010 


016116 


000401 




3R 


10$ :G0 TO EXIT 


2011 


016120 


000261 




5$: SE 


;SET THE CARRY BIT 


2012 


016122 


000207 




lOJ; RTl 


PC ;RETURN TO CALLER 


2013 










. Sr. ' TL 


CHKAMB - CHECK TbsW f OR AMBIGUITY 



)f i 



TSV5 ul OBAl ARt AS MACRO H1.''00 

CHKAMB CHECK TSSR H)R AMBIGUITY 

JOlb 

.^0.''0 
A\'l 

joa5 
^o^^ 

c?0^6 

^02 7 

2050 
2031 
2052 



84 08:44 PA(;t 17 20 



2054 
2055 
2056 
2057 
20 5« 
2059 
2040 
2041 
2042 
2045 
2044 
2045 
2046 
2047 
2046 
2049 
2050 
2051 
2052 
2055 
2054 
2055 
2056 
2057 
205fl 
2059 
2060 
2061 
2062 
2065 
2064 
2065 
2066 
2067 
2068 
2069 
2070 



016124 
016124 
016150 
016152 
016156 
016140 
016144 
016146 
016150 
016154 
016156 
016162 
016164 
016170 
016174 
016176 
016200 
016204 
016206 
016212 
016214 
016216 
016220 
016222 



010004 
052700 
001004 
052700 
001025 
000424 
052700 
001011 
052700 
001414 
042704 
020427 
001007 
000410 
052700 
001405 
052700 
001002 
000241 
000401 
000261 
000207 



100000 

174077 

000200 

000040 

177761 
000016 

000040 
000006 



016224 



000200 
000001 



000 



St (J 0066 



THIS ROUTlNt. ThST'i THE CONTENTS OF THt TSSR RFUIf.TtR 
^OR AMBIGUITY 



INPUT: 



RO 



OUTPUT ! 



RO 



CONTENTS OF TUSR 



CONTENTS or TSSR 



CARRY SFT - NO AMBlGUITr 

CLR ■ AMBIGUOUS CONTENTS 



CHKAMB; 





SAVREG 




(SAVE THE GENERAL REGISTERS 




MOV 


R0.R4 


1 CONTENTS Of TSSR 




BIT 


•SC.RO 


lis BIT 15 SET 7 




BNE 


5< 


1 BRANCH IF YES 




BIT 


•tC<NBA!OFL!SSR 


!HIAOOR>.RO lANY OTHER BITS 




BNE 


401 


iMUST BC AN ERftOft 




BR 


45t 


iRETUW^ WITH SUCCESS 


5i: 


BIT 


♦SSfl.RO 


jIS READY BIT SET ? 




BNE 


101 


iBRANCH IF READY BIT Tb SET. 




BIT 


#eiT5,R0 


lis FATAL ERROR BIT SET ? 




BEQ 


401 


1 ERROR IF NOT 




6IC 


♦tCTERCLS.RA 


(CLEAR ALL BUT TERMINATION CC'UE 




CMP 


R4,»16 


lALL THREE BITS MUST BE SET 




BNE 


401 


(ERROR IF NOT SET 




BR 


45* 


lOK IF ALL ARE SET 


101: 


BIT 


oeiTS.RO 


lis FATAL ERROR BIT SET 7 




BEQ 


451 


lERROR IF BIT IS SET UITM SSR 




BIT 


#eiT2!BITl,R0 


lis THIS A FUNCTION REJECT 




BNE 


45» 


iBR. IF TSSR IS OK 


401: 


CLC 




1 AMBIGUOUS CONTENTS 




BR 


501 




451: 


SEC 




iSHOW SUCCESS - NO AMBIGUITY 


50»! 


RTS 


PC 


(RETURN TO CALLER 




,SBTTL 


ENAINT.DSBINT - 


ENABLE/DISABLE INTERRUPTS 



SET 



I 

( DEFAULT DISPLAY INTERRUPT HANDLERS. 

1 IF DISPLAY TIME-OUT, REPORT OEV FATAL. AND ABORT PASS. 

I OTHERWISE. SAVE DPU REGISTERS AND DISMISS. 

I 

I BIT DEFINITIONS FQR "INTMASK" AND "INTFLAG" BYTES: 



I0KCKIN-BIT7 
lOKSTP-BITO 



I DON'T CHECK rOR BAD INTERRUPTS -• TtST WILL. 
I EXPECT "STOP" INTERRUPT, 



iINTERR»>>T MASK - SAYS EXPECTING INTERRUPTS 
INTMASK; .BtTE 



c^ 



TSV,^ i;i OhAl ARtAS MACRO Hl?O0 .^0 MAR 84 OH;44 PACK 1/ 21 
ENAiNT.DSBINT fcNABL.fc 'Ol^.ABLfc INTHRRUPTS 



SE-':j 006/ 



2071 

20?.^ 016225 000 



20 75 








2074 








2075 


016226 


000000 




2076 








C0^7 


016230 


OOOOOO 




2078 








2079 








2080 


016252 


010046 




2081 


016234 


015700 


002202 


2082 


016240 


012720 


016276 


2085 


016244 


012720 


000300 


2084 


016250 


012600 




2085 


016252 


011646 




2086 


016254 


012766 


OOOOOO 000002 


2087 


016262 


00C002 




2088 








2089 








2090 


016264 


011646 




2091 


016266 


012766 


000300 000002 


2092 


016274 


000002 




2093 








2094 








2095 


016276 
016276 






2096 


016276 


012757 


000001 002216 


2097 


016504 


105037 


016225 


2098 


016510 


152757 


000001 016224 


2099 


016316 


001005 




2100 


016320 


152737 


000001 016225 


2101 








2102 








2103 


016326 






2104 


016326 
016526 








016326 


000002 




2105 








2106 








2107 








2108 








2109 








2110 








2111 








2112 








2115 








2114 








2115 








2116 








c'117 








2118 








2119 


016550 


000401 




2120 


016352 








016352 


104422 




2121 


016554 


012746 


011000 


2122 


016340 


016500 


000002 


2123 


016344 


105700 





I INTERRUPT HAG ^AYS Wt GOT ONt (If POSITlvr ) 
INTrUAGj .BtTF. 

iSAVEO INTERRUPT VECTOR: 
INTVEC: .WORD 
(SAVE CPU PC 
INTCPCi .WORD 



; SUBROUTINE TO ENABLE INTERRUPTS: 
ENAINTi MOV RO.-CSP) (GAVE RO 

IVEC.RO 

fflNTR.CRO)* 

*PRI06,(RO)t 

(SP)».RO 

C SP ) . C SP ) 

»0.2(SP) 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 



iGET POINTER To VECTORS 
rSET UP INTERRUPT VECTOR 



(RESTORE RO 

(SET CPU TO LEVEL 



iSLeROUTTNE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 6) 



DSBINT 



INTRj 



MOV 
MOV 
RTI 
,SBTTL 

BGNSRV 

MOV 

CLRB 

BIT6 

BNE 

BI56 



(SP), (SP) 
*PRI06,2(SP) 



INTR 
INTR 



INTERRUPT HANDLERS 

tOEriNE INTERRUPT ENTRY 



• l.INTRECV I SET FLAG TO SHOW INTERRUPT RECEIVED 

INTFLAG (CLEAR FLAG TO SAY WE GOT INTERRUPT 

♦lOKSTP.INTMASK lEXPECTING STOP INTERRUPT? 

1» iBR IF YES 

tflOKSTP, INTFLAG |N0. SET THE ERROR FLAG. 



jSAVE REGISTERS, MSG BUFFER, ETC. 
II: 

ENDSRV 
L 10026: 

RTI 

.5BTTL WAITF - WAIT FOR SUBSYSTEM READY 

SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG 
INPUTS: 

R5 ADDRESS OF FIRST DEVICE REGISTER 
OUTPUTS: 



RO 

CARRY 



WAITFtt BR 

BREAK 
TRAP 

1 I : MOV 

att MOV 

TSTB 



CONTENTS OF LAST TSSR READ 

SET - READY BIT SET 

CLR - TIMEOUT WAITING FOR READY 



11 

CIBRK 

#11000, (SP) 
TSSR(R5),R0 
RO 



I NOP WHEN SUPER FIXED 

I DO A SUPVSR BREAK FIRST. 

I25-APRIL-85 REV B 1100 MSEC TIMER 
iREAD THE TSSR REGISTE.^ 
I TEST FOR READY BIT SET 



TSV.^ vU OBAl ARt/\S MACRO MK'OO 

WAITF WAIT FOR SUBSlSTLM READY 



)r. 



JO MAR. 64 0»!4fl PA(il- \ ,' ^■^ 



'qEU OO^jS 



Jl?4 








21J^ 


016346 


100420 




2126 


016350 








016350 


012727 


000001 




0163'>4 


000000 






016356 


013727 


002116 




016362 


OOOOOO 






016364 


005367 


177772 




016370 


001375 






016372 


005367 


177756 




016376 


001367 




2127 


016400 


005316 




2128 


016402 


001356 




2129 


016404 


000241 




2130 


016406 


000401 




2131 


016410 


000261 




2132 


016412 


005326 




2133 


016414 


000207 




2134 








2135 








2136 








2137 








2138 








2139 








2140 








2141 








2142 








2143 








2144 








2145 








2146 








2147 








2148 








2149 








2150 








2151 








2152 








2153 


016416 






2154 


016416 


004737 


016330 


2155 


016422 


103014 




2156 


016424 


004737 


016124 


2157 


016430 


105006 




2158 


016432 


032700 


100000 


2159 


016456 


001405 




2160 


016440 


032700 


074000 


2161 


016444 


001402 




2162 


016446 


000241 




2163 


016450 


000401 




2164 


016452 


000261 




2165 


016454 


000207 




2166 








2167 








2168 








2169 








2170 








2171 








2172 











BMl 


3$ 




Dtl.A> 


1 




MOV 


ffl.CPO* 




.WORD 







MOV 


LJDLY.CPO* 




.WORD 







DEC 


-6(PC) 




BNE 


. -4 




DEC 


-22CPC) 




BNE 


. 20 




DEC 


(SP) 




BNE 


2> 




CLC 






BR 


4$ 


3$: 


SEC 




4$: 


DEC 


(SP)* 




RTS 


PC 



1 EXIT ON STOP ri.AG. 
I WAIT 100 USEC 



(REDUCE DELAY CO<JNI 

(RETRY UNTIL TIMER EXPIRES 

i C ' 0, CONTROLLER STILL R^J^WING... 

I... OR HUNG-UP AFTER 300 MSt J . 

t C - 1. CONTROLLER IS GTCPrED, 

(RESTORE STACK WITHOUT CHANGI?^ CARRY BIT 



.SBTTL CHKTSSR - CHECK T5SR FOR READY 



THIS ROUTINE WAITS FOR READY IN THE TSSR 

AND TESTS FOR AMBIGUOUS BIT SETTINGS IN tssR. 



INPUT: 



R5 



ADDRESS OF CSR REGISTERS 



OUTPUT : 



RO CONTENTS OF TSSR 
CARRY SET - OKAY 

CLR - NOT READY AMBIGUOUS. OR SC SET 



J - 



CHKTSSR 


* 
* 






JSR 


PC. WAITF 




BCC 


20* 




JSR 


PC. CHKAM8 




BCC 


101 




BIT 


dSC.RO 




BEQ 


151 




BIT 


0<SCE!BIE»RMR!NXM>,RO 




BEQ 


15J 


10»: 


CLC 






BR 


201 


15«: 


SEC 




20»: 


RTS 


PC 




.SkiTTL 


XNXM - CHECK FOR N 



(WAIT FOR READY 

(BRANCH IF TIME OUT 

iTSSR AMBIGOUS? 

iBR IF YES 

(SPECIAL CONDITION SET? 

iBR IF NO 

(ANY ERROR BITS SET? 

(BR IF NO 

(SET FAILURE 

( 

(SET SUCCESS 

(RETURN TO CALLER 



( ♦ 

! ROUTINE TO TEST FOR A NEXM IN THE RANGE (Rl) THRU (R2). 
I ON RETURN, IF "C" - 1, CRD - NCXM ADDRESS. 
I "C" ■ 0, ALL ADDRESSES OK. 

( 



(CALL: MOV ADRl.Rl 



TSV5 - LUOBAl ARE-" AS MACRO M1?00 :?0-MAR.84 OHiAA PAfit 17 35 
XNXM - CHECK FOR NONEXIGTtNT MEMORY 

; MOV A0R?.R2 
; JSR PC.NXM 

i RETURN 



l^t 



SEQ 0069 



2175 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2162 
2183 
2184 
2185 
2186 
2187 
2188 
2189 
2190 



2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 



iTEST "C" AND PROCEED 



016456 
016464 
016472 
016474 

016476 
016500 
016502 
016506 

016510 
016512 
016516 
016520 
016520 
016524 
016526 
016530 
016532 
016534 



016536 
016536 
016542 
016544 
016550 
016552 
016556 
016560 
016562 
016564 
016566 



012737 016510 000004 
012737 000200 000006 
005003 
005711 

020102 

001407 

062701 000002 

000772 

005103 

012716 016520 

OOC002 

012700 000004 

104436 

005703 

001401 

000261 

000207 



005737 002162 

001006 

005737 002176 

100403 

005337 002210 

001002 

000241 

000401 

000261 

000207 



XNXM 
U: 



2$: 
3$: 



MOV 
MOV 
CLR 
TST 

CMP 
BEQ 
ADD 
BR 

COM 

MOV 

RTI 

CLRVEC 

MOV 

TRAP 

TST 

BEQ 

SEC 

RTS 



#2 i , mA 
*PRI04,ay?6 

R3 
(Rl) 

R1.R2 
Si 

#2.R1 
1^ 

R3 
*3$,(SP) 

«4 

04. RO 
CICVEC 
R3 
. ^4 

PC 



: SET BUSERR VECTOR. 

I FLAG. 

iTEST THE ADDRESS(ES). 

tIF AMY TRAP. CONTINUE AT 2 J 

i OTHERWISE. CONTINUE HERE. 

;BR IF FINISHED (NO NEXM'S). 

I SET NEXT ADDRESS.. . 

( .. .AND CONTINUE. 

jGOT ONE, SET FLAG. . . 

J . . .AND DISMISS INTERRUPT . . . 
I... AND GIVE BACK THE VECTOR 



I DID WE CATCH ONE ?? 

;N0. "C" - 0. SKIP NEXT. 

jYES, "C" - 1. (Rl) » NEXM ADDR. 



.SBTTL TSTLOOP - CHECK ITERATION COUNT 
i ♦ 

1 SUBROUTINE TO EXECUTE TEST ITERATIONS. 

; EXIT WITH "C" SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERO, 
t LOOP COUNTER IS SET BY "BEGIN. TEST" MACRO. 

! CALL: LOOPTO ARG 



; ITERATIONS INHIBITED? 

I YES. 

I NO. 

; LOOPS DISALLOWED IN QUICK PASS. 

J BUMP LOOP COUNTER. 

;LOOP DISALLOWED, OR DONE. 

I LOOP ENABLED. 



.SBTTL TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 

PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG. 
INCREMENT "TESTK" TO INDICATE THE NUMBER OF TESTS 
IN THE CURRENT RUN SEQUENCE. 
CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS. 



TSTLOOP: : 




TST 


NOTTS 


BNE 


1% 


TST 


QVP 


BMI 


it 


DEC 


LOOPCNT 


BNE 


21 


1$: CLC 




BR 


3$ 


2$: SEC 




3$: RTS 


PC 



INPUT : 



RO 



POINTER TO TEST ID ASCIZ STRING 
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TSTSETUP PRINT TEST NAMf AND INIT ERROR COUNTS 



r^: 



SEQ 0070 



2228 
2229 
2230 
22»1 
2252 
2233 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 
2249 
2250 
2251 
2252 
2253 
2254 
2255 



2256 
2257 
2258 



2259 
2260 



2261 

2262 
2263 
2264 

2265 
2266 

2267 
2266 



1 OUTPUT: 



016570 
016570 
016572 
016576 
016602 
016606 
016612 
016616 
016620 
016624 
016626 
016630 
016656 
016636 
016640 
016642 
016644 
016646 
016650 
016656 
016656 
016660 
016662 
016664 
016666 
016674 
016674 
016700 
016702 
016702 
016704 

016706 
016706 
016710 
016714 
016716 
016720 
01672C 
016722 
016726 
016732 



010046 
005037 
005037 
005037 
105037 
013700 
006300 
005737 
001450 
100010 
052760 

104455 
000001 
003734 
005732 
000407 
052760 

104455 
000002 
004331 
000000 
012737 

013700 
104451 

104444 
000423 



104421 
032700 
001412 
011600 

010046 
012746 
012746 
010600 



t 



R5 



ADDRESS OF FIRST DEVICE REGISTER 



003146 
017036 
005766 
016224 
002174 

003106 



160000 003170 



IMPLICIT OUTPUTS: 

TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 

SIDE EFFECTS: 

INTERRIJPT LEVEL IS RASIED TO LEVEL OF 
THE DEVICE UNDER TEST 



;SAVE THE TEST ID MESSAGE 

I CLEAR "SOFT INIT" FLAG 

J CLEAR LOCAL ERROR COUNTER. 

I CLEAR ERROR EXTENSION FLAG. 

I CLEAR INTERRUPT MASK (CHECK ERROR) 

; GET THE UNIT NUMBER. 

J ... AND MAKE IT A WORD OFFSET. 

i DID STARTUP FIND THE DEVICE? 



160001 003170 3$ 



177777 
002174 



003104 2$ 



001000 



016764 
000002 



TSTSETUP:: 




MOV 


RO. (SP) 


CLR 


SIFLAG 


CLR 


ERRK 


CLR 


EXTA 


CLRB 


INTMASK 


MOV 


UNITN.RO 


ASL 


RO 


TST 


NOOEV 


BEQ 


4i 


BPL 


3$ 


BIS 


*160000.ERTABLC 


ERRDF 


l.NXR.NXRERR 


TRAP 


C»ER0F 


.WORD 


1 


.WORD 


NXR 


.WORD 


NXRERR 


BR 


2$ 


3$: BIS 


«160001.ERTABL( 


ERRDF 


2,N0INIT 


TRAP 


CIERDF 


.WORD 


2 


.WORD 


NOINIT 


.WORD 





2$: MOV 


<>-l,DUFLG 


DOOU 


UNITN 


MOV 


UNITN.RO 


TRAP 


C$D00U 


DOCLN 




TRAP 


CIDCLN 


BR 


5« 


Ait RFLAGS 


RO 


TRAP 


CIRFLA 


BIT 


^NT.RO 


BEQ 


1» 


MOV 


(SP).RO 


PRINTF 


*TNAM,RO 


MOV 


PO. (SP) 


MOV 


OTNAM.-(SP) 


MOV 


#2.-(SP) 


MOV 


SP.RO 



BR IF YES 
I BR IF NOT IDLE 
RO) t FLAG ERROR IN THE ERROR TABLE 
; NO DEVICE HERE -- PRINT IT 



RO) i FLAG ERROR IN THE ERROR TABLE 
: DEVICE NOT IDLE 



J DROP THE UNIT 
i ABORT THE PASS 



» GET TttE OPERATOR FLAGS. 

I PRINT THE TEr.T NUMBERS? 

I BR 'F NO 

jGET THE ID MESSAGE 

iDISPLAY THE TEST ID 
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hb 



SEQ 0071 



2269 
2270 



2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 

2282 
2283 
2284 



016734 
015736 
016742 
016746 
016746 
016752 
016754 
016756 
016762 
016764 



2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
2304 
2305 
2306 
2507 
2308 
2309 
2310 
2311 
2312 
2313 
2514 



017000 
017000 
017002 
017006 
017010 
017010 
017014 
017020 
017024 
017026 
017030 
017034 

017036 
017040 
017057 



017124 
017130 
017132 
017156 
017140 
017144 
017146 
017152 
017154 
017156 
017160 

017162 
017164 
017170 
017172 
017176 
017202 
017206 



104417 

062706 000006 

005237 002206 



013700 
104441 
005726 
013705 
000207 
045 



104421 
030027 
001412 

013746 
012746 
012746 
010600 
104417 
062706 
000207 

000000 
045 
105 



005237 
010046 
013700 
006500 
062700 
005210 
032710 
001001 
005310 
012600 
000207 

010046 
013700 
006300 
016000 
042700 
020057 
103004 



002204 



002200 



123 



1$: 

5$t 

045 TNAM: 



TRAP 

ADO 

INC 

SETPRI 

MOV 

TRAP 

TST 

MOV 

RTS 

.ASCIZ 

.EVEN 

.SBTTl. TSTEND - PRINT ERRORS RECEIVED 



CJPNTF 

*6.SP 

TSTCNT 

IPRI 

IPRI.RO 

CtSPRI 

(SP)* 

CSRADDR.R5 

PC 

•itS«iTi<A Test 



J BUMP TEST COUNTER. 
^PRIORITY THAT OF DEVICE 



;FIX ItP THE STACK 

; ADDRESS OF TSV REGISTERS ON UNI8US 



AT END OF EACH TEST, PRINT THE NUMBER OF ERRORS RECEIVED 
IF NORMAL ERROR REPORTING IS DISABLED (FLA:IER). 



TSTENO: RFLAGS RO 



020000 



017036 
017040 
000002 



000006 



101 
122 



1*: 



ERRK: 
040 ESUM: .ASCIZ 
122 EMAXDU: .ASCIZ 
.EVEN 



TRAP 


CIRFLA 


BIT 


RO.<HER 


BFQ 


1$ 


PRINTF 


oesUM.ERRK 


MOV 


ERRK.-(SP) 


MOV 


*£SUM.-CSP) 


MOV 


*2.-CSP) 


MOV 


SP.RO 


TRAP 


CIPNTF 


ADD 


♦6,SP 


RTS 


PC 



i ER IF "lER" NOT SET. 
J PRINT ERROR COUNT. 



I LOCAL ERROR COUNT. 
/i^A #DitA ERRORS/ 
/ERROR LIMIT REACHED -- DROPPING UNIT/ 



017036 
002174 
003170 
007777 



002174 

003170 
170000 
002166 



.SBTTL INCERK - INCREMENT LOCAL ERROR COUNT 

I ROUTINES TO INCREMENT LOCAL ERROR COUNT A^JO CHECK FOR LIMIT: 

INCREMENT LOCAL ERROR COUNT 

SAVE RO 

GET UNIT NUMBER. 

.,, ANO MAKE IT A WORD OFFSET. 

RO GETS ADDRESS OF ERROR TABLE ENTRY. 

INCREMENT THE DEVICE ERROR COUNT 

010 UE OVERFLOW THE FIELD? 

BR IF NO. 

YES -- BACK IT UP TO 7777. 

RESTORE RO 

RETURN TO CALLER. 

SAVE RO 

GET UNIT NUr^ER 

... ANO MAKE IT A WORD OFFSET 

GET ERROR TABLE ENTRY 

EXTRACT ERROR COUNT FIELD 

IS GLOBAL LIMIT EXCEEDED FOR THIS UNIT? 

BR IF YES 



INCERK : 


INC 


ERRK 




MOV 


RO.-(SP? 




MOV 


LWITN.RO 




ASL 


RO 




ADO 


*ERTABL.RO 




INC 


CRO) 




BIT 


*7777.(R0) 




BNE 


1$ 




DEC 


CRO) 


1$: 


MOV 


CSP)*.RO 




RTS 


PC 


CKEMAX: 


MOV 


RO. CSP) 




MOV 


UNITN.RO 




ASL 


RO 




MOV 


ERTABLCRO"),RO 




BIC 


0170000.ro 




CMP 


RO.GERRMAX 




BHIS 


1$ 



He 



TSV5 GLOBAL AREAS 



MACRO MIPOO :»0MAR-a4 08:44 PAGt lV-i^6 



U 



INCtRK 

2315 

2316 
2317 

2318 
2319 
2320 
2321 



2322 



2323 

2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 

2333 
2334 
2335 
2336 
2337 



2338 

2339 
2340 
2341 
2342 
2343 
2344 
2545 
2346 
2347 
2548 
2349 
2350 
2351 
2352 
2353 
2354 
2355 
2356 
2357 
2358 
2359 



INCREMtNT LOCAL LRROR COUNT 



SEQ 0072 



017210 
017216 
017220 
017220 
017222 
017226 
017230 
017236 
017236 
017240 
017242 
017244 
01724f 
017246 
01^^52 
017254 
017254 
017256 
017260 



017262 
017264 
017274 
017274 
017276 
017302 
017304 
017506 
017314 
017314 
017320 
017322 
017322 
017324 
017326 



017330 
017330 
017334 



017336 
017342 
017344 
017352 



023757 017036 002164 
103417 

104421 

032700 000040 

001013 

012737 177777 003104 

104455 
000004 
017057 
000000 

013700 002174 
104451 

104444 
012600 
000207 



010046 



104421 

032700 000040 

001010 

011600 

012737 177777 

013700 002174 
104451 



104444 
012600 
000207 



; IS LOCAL LIMIT F.XCKEDfcD FOR THIS TEST? 

; BR IE NO 

t GET OPERATOR FLAGS 

J IS DROPPING INHIBITED? 

I BR jr YES. 

! NO -- DROP THE UNIT 



CMP ERRK.LERRMAX 

BLO 2% 

IS; RFLAGS RO 

TRAP C»RFLA 

BIT «IOU,RO 

BNE 2$ 

MOV #-l.DUFLG 

ERRDF 4,EMAX0U 

TRAP CJERDF 

. WORD 4 

.WORD EMAXOU 

. WORD 

DODU UNITN 

MOV UNITN, RO 

TRAP CtOOOU 

DOCLN 

TRAP CIDCLN 

2J: MOV (SP>.RO j RESTORE RO 

RTS PC i RETURN TO CALLER 

.SBTTL CKDROP - CHECK IF UNIT SHOULD BE DROPPED 

CHECK IF l^IT SHOULD BE DROPPED 



CKPROP: 



003104 



MOV RO.-CSP) 
FORCERROR li.NOTSSR 
RFLAGS RO 

CIRFLA 

*IOU.RO 

1( 

(SP).RO 

*-l,DUFLG 

UNITN 

UNITN. RO 

C$DOOU 



1$: 



TRAP 

BIT 

BNE 

MOV 

MOV 

DODU 

MOV 

TRAP 

DOCLN 

TRAP 

MOV 

RTS 



CIDCLN 

CSP)+,RO 

PC 



I ABORT THE PASS 



.SBTTL CONFIG - DETERMINE CONFIGURATION OF SYSTEM 

i SUBROUTINE - DETERMINE CONFIGURATION OF TSV05 SYSTEM. 
1 



004 737 016054 
000207 



005737 003124 

001403 

012737 000001 177572 

000207 



CONFIG: 



JSR PC.SOFINIT 

RTS PC 

.SBTTL KTON.KTQFF 



; SUBROUTINE - ENABLE MEM MGT. 



KTON: 
15: 



TST 
BEQ 
MOV 
RTS 



KTFLG 
U 

«1,SR0 
PC 



- ENABLE/DISABLE MEMORY MANAGEMENT 



J GOT KT? 

t NO. 

I YES. ENABLE KTll. 



1 f 
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KTON.KTOFF* - tNABLt/DISABLh MEMORY MANAGF.MF.NT 



SEQ 00/3 



^560 
2561 
2362 
2363 
2364 
2365 
2366 
2567 
2368 
2369 
2370 
2371 
2372 
2373 
2374 
237S 
2376 
2377 
2378 
2379 
2380 
2381 
2382 
2383 
2334 
2385 
2386 
2387 
2588 
2389 
2390 
2391 
2392 
2393 
2394 
2595 
2396 
2597 
2398 
2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 



01/354 
017560 
017362 
017564 
017566 
017374 



017576 
017576 
017402 
017406 
017410 



017442 
017 U6 
017452 
0174b4 
017460 
017464 
017470 
017472 
017474 
017476 
017500 



00575/ 
001405 
000240 
000240 
012757 
000207 



005737 
001435 
010102 
000006 



042701 
020157 
103011 
010157 
042702 
062702 
010200 
000261 
000401 
000241 
000207 



003124 



000000 177572 



1$: 



SUBROUTINE. - 


DISABLE 


MEM 


MGT . 




OFF: TST 


KTFLG 






I GOT KTll? 


BHQ 


1$ 






! NO. 


NOP 










NOP 










MOV 


O0,SR0 






; DISABLE K T . 


: RT5 


PC 








.SBTTL 


SETMAP 


- 


SETUP 


PAR6 MAPPING 



THIS ROUTINE SETS UP KERNEL PAR6 TP HANDLE 
AN 18 BIT ADDRESS. THE OFFSET INTO THE PAGE 
IS RETURNED BIASED TO PAR6. 



INPUTS t 



RO 
Rl 



OUTPUTS: 



SETMAP: 



003124 



000177 
003124 

172354 
160000 
140000 



10$ 
15$ 



RO 
CARRY 



SAVREG 

TST 

BEQ 

MOV 

.REPT 

ASR 

ROR 

.ENOR 

BIC 

CMP 

SHIS 

MOV 

BIC 

ADD 

MOV 

SEC 

BR 

CLC 

RTS 

.SBTTL 



HIGH ORDER ADDRESS BITS 
LOW ORDER ADDRESS BITS 



OFFSET INTO BLOCK WITH PAR6 BIAS (I.E. THE ADDRESS) 
SET IF SUCCESS 
CLR IF ERROR 



KTFLG 

10$ 

R1,R2 

6 

RO 

Rl 

*177,R1 

Rl, KTFLG 

10$ 

Rl,fiMH<IPAR6 

«160000,R2 

#140000. R2 

R2,R0 

15$ 
PC 



iSAVE R1-R4 UNTIL NEXT RETURN 

; SYSTEM HAVE ABOVE 28K? 

iBH IF NO 

I SAVE LOW ORDER BITS 

t CONVERT WORD ADDRESS TO 52W BLOCKS 
iMAKE IT DOUBLE PRECISION 

I ALINE FOR LOWtR 4K BOUNDARY 
iHIGHER THAN EXISTINC; MEMORY? 
tSR IF YES 

J SETUP MAPPING REGISTER PAR6 
(SETUP DISPLACEMENT IN PAGE 
I ADO IN PAR6 BIAS 
I RETURN IN RO 
J SET SUCCESS 

t 

iSET FAILURE 

jRETURN 



FILLMEM FILL MEMORY WITH BACKGROUND PATTERN 



FILL MEMORY WITH A BACKGROUND PATTERN 



INPUTS: 



RO " BACKGROUND PATTERN 
FREE - FIRS'i LOCATION 
KTFLG - SET TO HIGHEST 



AVAILABI t TO DIAGNOSTIC 
MEMORY LOCATION IF > 28K 



Jf, 



TSV5 lU.OnAl ARFAS MACRO MIPOO .^0 MAR 84 08:44 PAGE l7-dQ 
FILLMF.M riLL NtMORY WITH BACKGROUND PATTERN 



.^41/ 

?410 
2419 
2AP.0 
2421 

<'?423 
P4,'^4 
.M25 
.^426 
2427 
2428 
2429 
2430 
2431 
2432 
24 33 
2434 
24 35 
2436 
2437 
2438 
2439 
2440 
2441 
2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
C457 
2458 
2459 
246C 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2460 
2469 
24 70 
2471 
24 72 

^473 



017502 
017502 
017506 
017512 
017514 
017520 
017524 
017526 
017530 
017532 
017536 
017540 
017544 
017546 



017616 
017622 
017624 
017630 
017632 
017636 
017644 
017652 
017654 
017660 
017662 
017666 
017672 
017676 
017700 
017704 
017706 
017714 
017716 
017720 
017726 
017732 
017736 



004737 
010003 
013701 
013702 
010321 
005302 
005375 
005737 
001477 
004737 
005000 
013701 
000006 



004737 
010320 
020027 
103774 
162 ?00 
062737 
023737 
001427 
005737 
001407 
013704 
042704 
022704 
00J.415 
005737 
001410 
023727 
103001 
000403 
012737 
000137 
004737 
000207 



017354 

003116 
003120 



003124 
01/336 
003144 



017376 

160000 

020000 
000200 
172354 

003136 

177572 
177761 
000016 

003140 

172354 



000020 
01762? 
017354 



OUTPUTS: 

NONE 



FILLMEM: 



10$ 



30$ 



172354 
003124 



007600 



172516 



35$ 



40$ 
45$ 
50$ 
55$ 



SAVREG 

JSR 

MOV 

MOV 

MOV 

MOV 

DEC 

BGT 

T5T 

BEQ 

JSR 

CL.R 

MOV 

.REPT 

CLC 

ROL 

ROL 

.ENOR 

JSR 

MOV 

CMP 

BLO 

SUB 

ADO 

CMP 

BEQ 

TST 

BEQ 

MOV 

BIC 

CMP 

BEQ 

TST 

BEQ 

CMP 

BHIS 

BR 

MOV 

JMP 

JSR 

RTS 

.SBTTL 



PC.KTO^f 

R0.R3 

FREE.Rl 

KRES1Z.R2 

R3.(Rn* 

R2 

10$ 

KTFIG 

55$ 

PC.KTON 

RO 

PST32W,R1 

6 

Rl 
RO 



SFQ 00/4 



UNTIL NEXT RETURN 



2aK. 
SPACE? 



SAVE Rl R5 

DISABLE KT. 

COPY TEST PATTERN 

GET FIRST FREE LOCATION 

SIZE OF FREE SPACE BELOW 
t STORE A BACKGRO'.^^0 WORD 
;DONE ALL MEMORY IN FREE 
J BR IF NO 
I GOT KT? 
I NO. GET OUT. 
i YES. ENABLE KT. 
[HIGH ORDER ADDRESS START 
;GET *28K START ADDRESS (IN 32W BLOCKS) 

iCLEAR C BIT 

: CONVERT BLOCKS TO WORDS 

;MAKE IT DOUBLE PRECISION 



PC.SETMAP 

R3,CR0)* 

RO, 0160000 

30$ 

020000. RO 

0200.00KIPAR6 

&W<IPAR6,KTFLG 

50$ 

T23A 

35$ 

5R0,R4 

0177761, R4 

016. R4 

50$ 

T23B 

45$ 

80KIPAR6, 07600 

40$ 

45$ 

020, SR3 

30$ 

PC.KTOFF 1 

PC 

CHPMEM - COMPARE 



SETUP PAR6 MAPPING REGISTER 
STORE TEST PATTERN IN >28K ADDRESS 
ENO or PAR6 MAPPING AREA? 
BR IF NO 

BACKUP INTO PAR6 MAPPING BEGIN 
POINT TO NEXT 4K BLOCK >28K. 
ENU OF MEMORY? 
BR IF YES 
11/23A? 
NO KEEP GOING 
GET SRO CONTENTS 
CLEAR ALL BUT PAGE NUMBER 
SEE IF PAGE / 
EXIT IF THERE 
11/23B? 
NO KEEP GOING 
REACHED 18 BITS? 
YES 

NO KEEP GOING 
SET 22 BIT RELOCATION 
KEEP GOING ON ETC. 
DISABLE KT. 

MEMORY TO BACKGROUND PATTERN 



COMPARE MEMORY WITH A BACKGROUND PATTERN 



INPUTS: 



RO " 
FRZE 

KTFLG 



BACKGROUND 



PATTERN 
FIRST LOCATION 
SET TO HIGHEST 



AVAILABLE TO OIAGNOSffC 
MEMORY LOCATION IF > 281 






K'b 



Tf.V? GLOBAi ARE.AS MACRO Ml?00 ;^0 MAR 8<1 06:44 PAGF. 17-^9 
CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 



SEQ 0075 



^4 74 
24 7 '3 
24 7 b 

.-^478 
24 7S* 
P480 

?A%2 
.?48J 
^484 
?485 
2486 
248 7 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
2rj27 
2528 
2529 
2530 



017740 
017740 
017744 
017746 
017752 
017756 
017762 
017764 
017766 
017772 
017776 
020002 
020006 
020010 
020012 
020014 
020016 
020022 
020024 
020030 
020032 



02006'S 
020072 
020074 
02007S 
020102 
020104 
020106 
020110 
020112 
020114 
020120 
020124 
020130 
020134 
020136 
020142 
020144 
020150 
020154 
020156 



010003 
004737 
013 701 
013702 
020311 
001411 
010137 
005037 
010337 
011137 
000474 
005721 
005302 
003362 
005737 
001472 
004737 
r.05000 
013/01 
000006 



042701 
010046 
010146 
004737 
010004 
012601 
012600 
020314 
001411 
010037 
010137 
010357 
011437 
000421 
062701 
005500 
062704 
020427 
103755 
162704 



OUTPUTS; 



CARR^ 
CARRr 



SET 
CLR 



IF 
IF 



NO ERROR 
ERROR 



IMPLICIT OUTPUTS: 



CMPMEM: 



017354 
003116 
003120 



002232 
002230 
002224 
002226 



003124 
017336 
003144 

000177 
017376 



10$ 



15$ 



30 J 



002230 
002232 
002224 
002226 

000002 

000002 
160000 

020000 



12$ 



ERRHI 
ERRLO 
EXPO 
RECV 



SAVREG 

MOV 

JSR 

MOV 

MOV 

CMP 

BEQ 

MOV 

CLR 

MOV 

MOV 

BR 

T5T 

DEC 

BGT 

TST 

BEQ 

JSR 

CLR 

MOV 

.REPT 

ROL 

ROL 

.ENOR 

BIC 

MOV 

MOV 

JSR 

MOV 

MOV 

MOV 

CMP 

BEQ 

MOV 

MOV 

MOV 

MOV 

BR 

ADD 

ADC 

ADD 

CMP 

BLC 

SUB 



- ERROR HIGH ADDRESS 

- ERROR LOW ADDRESS 
^ EXPECTED DATA 

- RECEIVED DATA 



R0,R3 

PC.KTOEF 

FREE.Rl 

rRESIZ.R2 

R3.(Rn 

15i 

Rl.ERRLO 

ERRHI 

R3.EXPD 

CHD.RECV 

50i 

(RD* 

R2 

10$ 

KTFLG 

55$ 

PC.KTON 

RO 

PSTSaW.Rl 

6 

Rl 

RO 

«177.Ri 

R0»-(5P) 

Rl.-CSP) 

PC, SETMAP 

R0.R4 

(SP)*,R1 

(SP)»,RO 

R3,(R4) 

32$ 

RO. ERRHI 

Rl.ERRLO 

R3.EXPD 

Cn4),RECV 

501 

#2.R1 

RO 

i>2.R4 

R4,<H60000 

30$ 

ft20000,R4 



I SAVE R1R5 UNTIL NEXT RETURN 
COPY TEST PATTERN 
DISABLE KT. 

GET FIRST FREE LOCATION 
SIZE OF FREE SPACE BELOW 28K . 
FREE SPACE LOCATION EQUAL TO tXPD? 
BR IF YES 

SAVE ADDRESS IN ERROR 
NO HIGH ADDRESS 
SAVE EXPD FOR ERROR REPORT 
SAVE RECV FOR ERROR REPORT 

POINT TO NEXT ADDRESS 

DONE ALL MEMORY IN FREE SPACE? 

BR IF NO 

GOT KT? 

NO. GET OUT. 

YES. ENABLE KT. 
HIGH ORDER ADDRESS START 
GET >28K START ADDRESS t IN 32W BLOCKS) 

CONVERT BLOCKS TO WORDS 
MAKE IT DOUBLE PRECISION 

ALINE 4K BOUNDARY 

SAVE HIGH ORDER 

SAVE LOW ORDER 

SETUP PAR6 MAPPING REGISTER 

COPY AfX)RESS BIASED TO PAR6 

RESTORE LOW ORDER IN NON PAR6 FORMAT 

RESTORE HIGH ORDER IN NON HAR6 FORMAT 

ABOVE 28K LOCATION EQUAL EXPD? 

OR IF YES 

SAVE HIGH ORDER IN ERROR 

SAVE LOW ORDER IN ERROR 

SAVE EXPO FOR ERROR REPORT 

SAVE RECV FOR ERROR REPORT 

UPDATE NON PAR6 ADDRESS 

MAKE IT DOUBLE PRECISION ADD 

UPDATE PAR FORMAT ADDRESS 

END OF PAR6 MAPPING AREA? 

BR IF NO 

BACKUP INTO PAR6 MAPPING BEGIN 



I b 



TSV5 lU.OnAl ARt-.AS MACRO M1?00 /'O MAR H/l 08:^4 PAGt 17-30 
CMPMEM - COMPARE MEMORY TO BACKGROUND PAfTtRN 



SEQ 00/6 



2531 

2553 
2534 
2535 
2536 
2557 
2:>38 
2539 
2540 
2541 
2542 
2543 
2544 
2545 
2546 
254 7 
2546 
2549 
2550 
2551 
2552 
2553 
2554 
2555 
2556 
2557 
255^ 
2559 
2560 
2561 
2562 
2563 
2564 
2565 
2566 
2567 
2568 
2569 
2570 
2571 
2572 
2573 
2574 
2575 
2576 
25? 7 
2578 
25/9 
2580 
2581 
2582 
2583 
2584 
2585 
2586 
2587 



020162 
020170 
020176 
020200 
020204 
020206 
020210 
020214 
020216 



020220 
020220 
020222 
020224 
020226 
020230 
020232 
020236 
020240 
020242 
020244 
020246 
020250 
020252 



062 737 
023737 
1017^4 
004737 
000241 
000403 
004737 
000261 
000207 



010446 
010346 
010246 
010146 
010546 
016605 
004736 
012601 
012602 
012603 
012604 
012605 
000207 



000200 
172354 

017354 



017354 



172354 
003124 



50$ 

55$ 

60J 



ADD 

CMP 

Bl OS 

JSR 

CLC 

BR 

JSR 

RTS 



V?200.a*l<IPAR6 

aftl<IPAR6.l<TELG 

30J 

PC.KTOFF 

60$ 
PC.KTOFF- 



PC 



;POINT W NEXT 4I< BLOCK >28K 
iEND OF MEMORY? 
iBR IF NO 

TURN OFF MEMORY MAPPING 

SEl FAIIURL 

TURN OFF MEMORY MAPPING 
5Er SUCCESS 



.SBTTL REGSAV 



SAVE R1-R5 ON STACK 



ROUTINE TO 

SAVE Rl THROUGH R5 ON THE STACK 



CALLING SEQUENCE: 



JSR 



R5.REGSAV 



THIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO 
THE- CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE, 
THE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE 
REGISTERS. 

THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE 
CALLED VIA A JSR PC INSTRUCTION 



000012 



REGSAV: 




MOV 


R4.-(SP) 


MOV 


R3.-(SP) 


MOV 


R2,-CSP) 


MOV 


Rl.-CSP) 


MOV 


R5,-(SP) 


MOV 


10.(SP).R5 


JSR 


PC.SCSP)* 


MOV 


ISP)*,R1 


MOV 


CSP)*.R2 


MOV 


CSP)*,R3 


MOV 


CSP)..R4 


MOV 


(SP)*.R5 


RTS 


PC 


.SBTTL 


GETPAT 



GET 8 BIT PATTERN FROM OPERATOR 

* 

ROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR 
INPUTS: 

NONE. 
OUTPUTS: 

RO OCTAL NUMBER FROM THE OPERATOR 
1 CALLING SEQUENCE: 



1t. 



TSV-^ GIOBAL ARtAS MACRO MIPOO .''O-MAP »*■; u6\AA PACK 17 31 

13ETPAT GET 6 BIT PATTKRN FROM no^KArOR 



SEQ 00// 



2580 

2590 

2"-^-x 
2b92 
2593 
<^594 
2595 



2596 

2597 
2598 
2599 
2600 
2601 
2602 
2605 
2604 
2605 
2606 
2607 
2608 
2609 
2610 
2611 
2612 
261-^ 
2614 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
262:> 
2626 
2627 
2626 
2629 
^630 



020254 
020254 
020260 
020260 
020262 
02026*; 
020266 
020270 
020272 
020274 
020276 
020300 
020300 
020300 
020302 
020306 



020310 
0203X2 



020536 
020536 
020342 
020344 
020346 
020350 
020352 
020352 
C20354 
020360 
020364 



104443 
000406 
020310 
000022 
020312 
000377 
000000 
000377 



103367 
013700 
000207 



000000 
105 



01000c 
010205 
005713 
001412 

012346 
012746 
0.12746 
010600 



G&TPAT: 

1$! 



10000$ 



JSR PC.GETPAT 



SAVRF.G J SAVE: THt iJF.NERAL REGISTERS 

GMANID DATASC.PATDAT.0.3 7 7.C.377.NO 

TRAP CJGMAN 

BR 10000$ 

.WORD PATDAT 

.WORD T$CODE 

.WORD DATASC 

.WORD 377 

.WORD T$L011M 

.WORD TJHILIli 



020310 



BNCOHPLETE 1$ 
3CC i.$ 
MOV PATDAT »R0 
RTS PC 



[RETRY IF ERROR 

jDATA PATTERN F'ROh OPERATOR 
jR^-TURN TO CALLER 



LOCAL DATA ARF.A 



116 



PATDAT: .WORD ; TEMPORARY STORAGE KOR DATA 

124 DATASC: .ASCIZ 'ENTER DATA PATTERN' 
.EVEN 

.SBTTL GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 
♦ 

ROUTINE TO ISSUE A MENU AND GET 

THE OPERATOR'S RESPONSE. 



INPUTS: 

RO 
Rl 

OUTPUTS: 

RO 



ADDRESS OF ASCI^ STRING OF MENU 
MAXIMUM ALLOWABLE OPERATOR RESPONSE 



NUMBER OF THE OPERATOR'S SELECTION 



GETSEL: : 



1$ 
2$ 



020522 
000002 



SAVREG 

MOV 

MOV 

TST 

BEQ 

PRINTF 

MOV 

MOV 

MOV 

MOV 



R0.R2 
R2,R5 

(R3) 
3$ 

0SELASC.(R3)» 
CRS;)* . -CSP") 
OSFLASC. -(SP) 
«2 . - ( SP ) 
SP.RO 



I SAVE GENERAL REGISTFRS 

iSAVE THE MENU ADDRESS 

I START OF MENU STRING 

;EN0 OF ASCII ? 

(BRANCH IF ALL LINES DISPLAYED 

(DISPLAY THE MENU 



Hi 



T1)V:^ uUOtlAl ARf.rtS MACRO Mi/00 .-^0 MAR 84 Oi5:44 PAGt 17-5? 

GtTSEL - ISSUt MENU AND OLT OPERATOR RESPONSE. 



SEQ OO/d 



?631 



.'634 

263e> 
^637 



.^658 

r>639 

;?640 
2641 

r^64c' 

;^64 3 
?644 
.^645 
^bAt 
.^64 / 
c?648 
.^649 
.^650 
26=) 1 

^65c:^ 

J653 
^6^4 
*^6^'.> 
0656 
?65 7 
^658 
?6^j9 
."!660 
^6^ 1 
266? 
2665 
2664 
2665 
2666 
2667 
2663 
2669 



020366 
020370 
020374 
020376 
020376 
020400 
020402 
020404 
020406 
020410 
020412 
020414 
020416 
02041.- 
020416 
020420 
020424 
020426 
020430 
C2O430 
020434 
020440 
020442 
020444 
020450 
020452 
020454 
020522 
020527 



020560 
020560 
020564 
020564 



104417 
062V 06 
000 764 

104443 

000406 
020556 
000042 
020527 
177777 
000000 
177777 



103352 
013700 
020001 
101411 

012746 

012746 

010600 

104417 

062706 

000735 

000207 

045 

045 

105 



020556 000000 



000006 



3$ 



10001 S 



020556 



020454 
000001 



000004 



116 
116 
156 



045 

045 



5$: 

MENERR 

SELASC 



164 MENASC 
MENRES 



TRAP 

ADO 

BR 

GMANIl) 

TRAP 

BR 

.WORD 

. IJORD 

.WORD 

.WORD 

.WORD 

.WORD 

BNCOMPLE 

BCC 

MOV 

CMP 

BLOS 

PRINXr 

MOV 

MOV 

MOV 

TRA? 

ADO 

BR 

RTS 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

.5BTTL 



CSPNTF 

^/6 . SP 

2J 

MENASC . MENRES . D , - 1 , , - 1 . NO 

CJGMAN 

10001$ 

MENRES 

T$CODt 

MENASC 

-1 

T$LOLIM 

TJHILIM 



iRt^TRY IF ERROR 

J GET THE OPERATOR'S RtPL f 
COMPARE TO MAXIMUM ALLOWED 
BRANCH IF OK 
DISPLAY ERROR MESSAGE 



TE 1$ 

li 

MENRES, RO 

RO.Rl 

5$ 

VM^FNERR 

4>MENERR. -(SP) 

<^1, CSP) 

SP.RO 

C$PNTF 

#4,SP 

1» iRETRY 

PC {RETURN TO CALLER 

' i<N*A ♦•♦ Menu Select lor* Too Loroe ***' 

'KN*(T' 

'Enter Menu Selection: ' 



.WORD 
CHKMAN 







CHECK MANUAL INTERVENTION LEGALITY 



ROUTINE TO TEST FOR .iANUAL INTERVENTION LEGALITY. 
INPUT: 



NONE. 



OUTPUT: 



CARRY 



SlOb EFFECT 



MANUAL INTERVENTION NOT ALLOWED 
MANUAL INTERVENTION IS OK 



A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
NOT EXECUTED IF MANUAL INTERVENTION 19 NOT 
ALLOWED. 



CHKMAN : 



104450 



5AVREG 
MANtJAL 
TRAP 



CiMANI 



J SAVE THE REGISTERS 

iSEE IF MANUAL INTERVENTION 



OK 



1 / 
> I 



TSV.^ ul OBAl APt AS MACRO Mh>00 t^O MAM H4 Ort;44 FAiif 1? 55 

CHKMAN CHECK MANUAL INTr.RVhNTION UF.GAl iTi 



'afrj 00/^ 



J670 


020566 








020566 


103411 




26 71 


020570 








020570 


012746 


020614 




020574 


012746 


000001 




020600 


010600 






020602 


104417 






020604 


062706 


000004 


^t,:^ 


020610 


000241 




Jb/3 


020612 


000207 




2674 








2675 


020614 


045 


116 


26 76 








26/; 








26 76 








26 79 








26d0 








2681 


020710 








020710 


104451 




2662 


020712 


010057 


005116 


2665 


020716 


062757 


000002 


2664 


020724 


011057 


003120 


2665 


020750 


162757 


000004 


2666 


020756 


015702 


002012 


2667 


020742 


162757 


000007 


2666 


020750 


005502 




2669 


020752 


001575 




2690 


020754 


013700 


003116 


2691 


020760 


065700 


005120 


2692 


020764 


162700 


000002 


2693 


020770 


010057 


005122 


2694 


020774 


000240 




2695 


020776 


012701 


177520 


2696 


021002 


010102 




2697 


021004 


062702 


000002 


2696 


021010 


0O4757 


016456 


2699 


021014 


105001 




2700 


021016 


000445 




2701 


021020 


013701 


177520 


2702 


021024 


062701 


000001 


2703 


021050 


012702 


177520 


2704 


021054 


005212 




2/05 


021056 


013705 


177520 


2706 


021042 


020105 




2V07 


021044 


001017 




2706 


021046 


005257 


005156 


2709 


021052 


042757 


170000 


2710 


021060 


000240 




2/11 


021062 








021062 


012746 


005550 




021066 


012746 


000001 




021072 


010600 






021074 


104417 






021076 


062706 


000004 


271if 


021102 


000413 




2715 


0?1104 


005237 


003140 


273.4 


02X110 


000240 





M: 



BCOMFl 'r 

BCj 

PRINT.' 

M'JV 
MOV 

;-*ov 

TRAP 
AOD 
CuC 
KTS 



TF II 
II 

^OMAN 

*NOMAN. CSP) 
#1. (3P) 
SP.RO 
CIPNTF 
#4,SP 

PC 



I BRANCH U Al I OWf-D 

iPRINr THF WARNINCi HF'"jSAOF 



jCLfAR CARR^ rOR FRROR 
jRETURN 



045 Nr^rAN: ASCI7 



• ^Ni<A •♦♦ Manual Intervention not Allowed Teat Aborted •*• 

F.HVIRN SETUP FRtE DIAGNOSTIC 'jPACF 

I 
I SUBROUTINfc TO SF.T UP VARIOUS ENVIRONMENTAL PARAMFTF.RS. 



e-'^n 
'^erTL 



ENVIRNi 



003116 
003120 
003120 101: 



I5l! 



002120 



201: 



MEMORY 

TRAP 

MOV 

AOD 

MOV 

sue 

MOV 

sue 

DEC 

BNE 

MOV 

ADD 

SUB 

MOV 

NOP 

MOV 

MOV 

ADO 

J5R 

BCC 

BR 

MOV 

ADO 

MOV 

INC 

MOV 

CMP 

BNE 

INC 

BIC 

NOP 

PRINTF 

MOV 

MOV 

MOV 

TRAP 

ADO 

BR 

INC 

NOP 



RO 

CIMEM 

RO.FREt 

«2.FREE 

(RO),rRESIZ 

M.FRESIZ 

LIUNIT.R2 

•7.FRESIZ 

R2 

lot 

FREE.RO 

FRESIZ.RO 

♦2,R0 

RO.FREEHI 

♦eOVPCR.Rl 

R1.R2 

•2,R2 

PC . XNXM 

151 

401 

BDVPCR.Rl 

♦l.Rl 

♦e0VPCR.R2 

(R2) 

BDVPCR,R3 

R1.P5 

201 

T23A 

♦1 70000. LIHIME 

♦M6186 

♦Mai«6.-(SP) 

♦l.-(SP) 

SP.RO 

CIPNTF 

04, 5P 

401 

T23B 



GET I'iT FREE ADDRESS.. . 

.. .AND WORD COUNT. 

GET NUMBER OF UNITS 

TAKE AWAY 7 WORC PER UNIT 



GET FIRST FREE ADDRESS 
POINT TO LAST FREE ADDRESS 
BACKUP 1 WORD 
STORE LAST FREE ADDRESS 



GET BDVll PCR ADDRESS 

COPY TO R2 

SET THE RANGE 

SEE IF we HAVE ONE 

OK TO SET FLAGS 

RETURN WITH FLAGS CLEAR 

SAVE PCR CONTENTS 

ADO ONE TO IT 

GET BOVll PCR ADDRESS 

TRY TO WRITE TO IT 

GET RESULTS 

DID IT CHANGE? 

NO, njSJ BE 11/25B 

SET THE FLAG 

SUPERVISOR COULD BE WRONG 

BR 401 FOR RELEASE 

TELL THE SYSTEM TYPE 



(RETURN 

iSET THE. Fi.AG 

iBR 40J FOR RELEASE 



TSV.^ ul ORAl ARtAS MACRO MK^OO .'0 MAR fl/i Ort-zlfl PAtie W .'j^ 

ENVIRN r>ETL»P FREE: DIAGNOSTIC SPACf; 



c/ 



SFQ OOfSO 



71b 



.^■'16 

.r/19 

^720 

2723 
2 724 
2725 
2726 
2727 
2728 
272<* 
273C 
2731 
2732 
2733 
2734 
2735 
2736 
2737 
2738 
2739 
2740 
.-»741 
2742 
2743 
2744 
2 745 
2746 
2747 
2748 
2749 
2750 
2751 
2752 
2 753 
2754 
2755 
2756 
2757 
2758 
2759 
2760 
2761 
2 762 
2 763 
2764 
2765 
2 766 



021112 
021112 
021116 

021124 
021126 
021152 



021134 
021134 
021140 
'VI 144 
021152 
021154 
021160 
021166 
021172 
021174 
021202 
021210 
021214 
021216 
021222 
021230 
021232 
021236 
021242 
021244 
021250 

021252 
021256 

021260 

021264 



01.^746 
0U^746 
010600 
104417 
062 /06 
000207 



005037 
005037 
023727 
101444 
013700 
012757 
005757 
000240 
013757 
042757 
010057 
OOSOiX) 
012701 
012761 
010021 
0627i>0 
02OOi?7 
001S<i7 
012741 
000405 

012716 
000002 

010037 

000207 



005641 
00000 I 



000004 



pniNTF 


V>M8189 iTELL THE Sr^TEM T fPE 


MOV 


dM8189. C5P) 


MOV 


«1. -CSP) 


MOV 


SP.RO 


TRAP 


CIPNTF 


ADD 


*4,SP 


RTS 


PC 1 RETURN 


.SBTTL 


KTINIT ■ SETUP KTll ME.MORY MANAGEMENT HEtilSTFRS 



003124 
003126 
002120 001577 

000004 

021252 000004 

177572 

002120 003124 
000177 003124 
000004 

172340 

077406 177740 

000200 
002000 

177600 



021260 
000004 



40$: 



ROUTINE TO INIT KT-U 



KTINIT 





CLR 


KTFLG 


INIT >2eK MEMORY FLAG 




CLR 


K TENABLE 


INIT TEST >28K FLAG 




CMP 


LtHIME, 01577 


GOT ENOUGH MEMORY (>28K)? 




BLOS 


91 


NO. 




MOV 


0<^€RRVF.C,RO 


SAVt OLD ERR VEC PTR. 




MOV 


*2I.S#EHRVEC 


SET ERR VEC PTR. 




TST 


8«5R0 


GOT KTll? 




NOP 




CTRAP IF NO). 




MOV 


LIHIME. KTFLG 


YES. SET KT FLAG. 




BIC 


• 177. KTFLG 






MOV 


RO.S^RRVEC 


RESTORE OLD ERR VEC PTR. 




CLR 


RO 


RO ■ AR DATA. 




MOV 


WIPARO.Rl 


Rl • KI REGS PTR. 


U: 


MOV 


077406, -40CRn 


SET DESCRIPTOR REG. 




MOV 


R0,(R1)» 


SET KIPAR REG. 




ADD 


0200, RO 


BUMP AR DATA Bf •■4K". 




CMP 


RO , 02OO0 


AT "I/O"? 




BNE 


1$ 


NO. 




MOV 


0177600, -CRD 


YES. SET KTPAR7 FOR I/O. 




BR 


9$ 




2$: 


MOV 


06$, CSP) 


SET UP RETURN 




RTI 




RTI TO NEXT LOCATION 


6»i 


MOV 


RO.aOERRVEC 


RESTORE OLD ERR VEC PTR, 


9»: 


RTS 


PC 





SUBROUTINE TO SET EXTENDED FEATURES SWITCH 

Requires thot SOFINIT and WRTCHR have been ^on< previous to call. 



CURRENT UNIT NUMBER 



021266 



INPUTS: 

R5 
OUTPUTS: 

The Extencte^ Features Switch is set. 



INVERT:: 



TSV? Gl vIBAl AREAS MACRO MU'^OO .">0-MAR 84 0^:44 PAGt^ 1/35 

KTINIT ■ SETUP KTll MEMORt MANAGhMFNT REGISTERS 



D / 



■^'767 

^770 
^771 

r>772 

.■^775 
?:'74 
r: .' 75 
.^776 
^7 7/ 
^77ft 
2779 
2760 
^7tM 

p.7a'c 

r?7a4 

2 735 
2766 
2757 
27S8 
27fi9 
2790 
2791 
2792 
2"'95 
2794 
2795 
2796 
2797 
2796 
2799 
2800 
2801 
2802 
2805 
2804 
2805 
2606 
2807 
2806 
2609 
2610 
2611 
2812 
2813 
2814 
2815 
2816 
2817 
2618 
2619 
2820 
2621 
2622 
2823 



021266 
021272 
021274 
021302 
021310 
021316 
021324 
021330 
021334 



021340 
021342 
0^1544 
021346 



021350 
021/52 
021754 



021356 

021356 
021362 
021366 
021372 
021376 
021402 
021404 
021412 
021414 
021420 
021422 
021426 
021430 
021436 
021440 
021446 
021450 
021454 
021456 
021464 



005737 
001020 
012737 
012737 
012737 
012737 
012704 
004737 
000207 



021340 

000000 
000000 
OOCOOO 
000000 



000000 
000000 
000000 



005037 
005037 
005037 
005737 
001407 
023727 
105406 
004737 
000427 
005737 
001413 
023727 
101023 
023727 
103403 
004737 
000411 
023727 
103410 



002220 

100206 
021350 
000006 
100010 
021340 
010742 



021340 
021342 
021346 
021350 



1$; 
I 

CMDPKT 



TSr EXTFEA 

BNfc 1 % 

MOV *100206.CM0PI<T 

MOV flWSMBK. CMDPKT *2 

MOV #6.CMDPKT*6 

MOV tflOOOlO.WSMBK 

MOV 0CMDPKT,R4 

J5R PC.WRTCHR 

RTS PC 

COMMAND PACKET. 



<.»3>6177774 



IS SWITCH SK f? 

YES, EXIT STAGc RIGHTKor 

WRT SUB -SYS MF.M CMD 

MSG BUF ADOR 

BYTE COUNT 

INVERT THE SWITCH 

SET CMDPKT INTO R4 

DO IT 

RETURN 



(MUST BE ON MOD 4 BOUNORY. 

1 1ST WORD IS TS05 COMMAND. 

1 2ND WORD IS THE BUFFER LOW ADDRESS. 

(3RD WORD IS THE BUTFER HIGH ADDRESS. 

j4TH WORD IS THE BYTE/RECORD/FILE COUNT. 



SEO 00^1 



the nej-.! one o-jta town!) 



WRITE SUe-SYSTEM MEMORY CHARACTERISTIC BLOCK. 



WSMBK: 






.EVEN 



J 1ST WORD 
;2N0 WORD 
»3R0 WORD 



SEL 
SEL 2 
SEL 4 



SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NXM 



(INPUTS: 
OUTPUTS: 

The NXMFLG Is aet if we can test. 

The NXMLO and NXMHI acWresses are setup. 



MEMCK t : 



003130 
003132 
003134 
003140 

002120 

021532 

003136 

002120 

002120 

021532 

002120 



007777 



005777 
003777 



li: 
2$: 



001577 45: 



SAVREG 

CLR 

CLR 

CLR 

TST 

BEQ 

CMP 

BLO 

JSR 

BR 

TST 

BEG 

CMP 

BHI 

CMP 

BLO 

JSR 

BR 

CMP 

BLO 



NXMFLG 

NXMLO 

NXMHI 

T23B 

II 

L»HIME,«7777 

2t 

PC.NXMTST 

13$ 

T23A 

4» 

L»HIME.*5777 

141 

LIHIME. 03777 

41 

PC.NXMTST 

131 

LIHIME.V>1577 

14 i 



SAVE THE REGISTERS 

CLEAR THE FLAG 

CLEAR THE TEST ADDRESS LO 

CLEAR THE TEST ADDRESS Hi 

IS IT A 11/23B? 

NO 
GREATER THAN 128K 
NO 

SETUP THE ADDRESS 

SET THE FLAG AND EXIT 

IS IT A 11/23A? 

NO 

GREATER THAN 96K 

YES.23A/25B WITH 128K MEMORY 

GREATER THAN 64K BUT LESS THAN 92K? 

NO. CHECK 24K 

SETUP THE ADDRESS 

SET THE FLAG AND EXIT 
.GREATER THAN 24K BUT LESS THAN 64K? 
;N0. TELL THEM AND EXIT WITH FLAG CLEAR 



:SV? .;!.nBAl ARHAS macro MIPOO .?0 map en 08:44 PAGH 17-56 
KTINIT - SETUP KTll MEMORY MANAGEMFNT REGISTERS 



r / 



SEQ OOfJS 



28?4 
2325 
2826 
2827 
2828 
2829 



2850 
2851 
2852 
2855 
2854 
2855 
2656 
2857 
2858 
2839 
2840 
2841 
2842 
2845 
2844 
2845 
2846 
284 7 
2848 
2849 
2850 
2851 
2852 
2853 
2854 
2855 
2856 



021466 
021472 
021500 
021504 
021506 
021510 
021510 
021514 
021520 
021522 
021524 
021530 



021552 
021556 
021542 
021546 



021564 



021614 
021620 
021624 



021626 



004757 021552 
062757 000077 
005237 003130 
000411 
0OO410 

012746 005454 

012746 000001 

010600 

104417 

062706 000004 

000207 



013^01 
062701 
042701 
010102 
000006 



010157 
000012 



042702 
010237 
000207 



002120 
000200 
000177 



003132 



177700 
003154 



003134 





JSR 


PC.NXMTST 




ADD 


ft7 7,NXMHI 


15S: 


INC 


NXMFL.G 




BR 


15$ 


14$: 


BR 


15$ 




PRINTF 


<^N0MEM 




MOV 


*NOMEM. ^CSP) 




MOV 


<M.-CSP) 




MOV 


SP.RO 




TRAP 


C$PNTF 




ADD 


<>4,SP 


15$: 


RTS 


PC 



, SETUP THE ADDREf/S 

iFOOL THE 11/02 6 11/03 

jfifcT THE FLAG 

jEXIT 

I NOP FOR PRINTOUT 

jTELL 'IHEM 6 EXIf ***N0 PRINT***** 



(RETURN 

SUBROUTINE TO SETUP THE NXM ADDRESS FOR TESTING 
OUTPUTS :NXML0,NXMHI i SETUP WITH NXM ADDRESS 



NXMTST: MOV 


L$HIME,R1 


ADD 


*200,R1 


BIC 


»177.R1 


MOV 


R1.R2 


.REPT 


6 


ASL 


Rl 


.ENDR 




MOV 


Rl.NXMLO 


.REPT 


10. 


ASR 


R2 


.ENDR 




BIC 


#177700. R2 


MOV 


R2.NXMHI 


RTS 


PC 



;GET TOP OF MEMORY 

I MAKE IT I/O BLOCK OR OTHER NXM 

;RESAVE RESULTS 

;PUT IN PLACE FOR XFER 

;SAVE TEST ADDRESS LOW 

(PUT IN PLACE FOR XFER 

J DON' T WANT ILA! 

;SAVE TEST ADDRESS HIGH 

; RETURN 



ENOMOD 



1 i 
TSV4 Ml;iCMMNt-:OUS St.CUONS MACRO H1?00 .'0 MAR-84 08:44 PAGF- 18 

KTINIT SETUP KTll MEMORY MANAGEMENT REGISTERS ^^° ^^^^ 

■' .TIILE TSV4 - MISCELLANEOUS SECTIONS 

8 

9 0?16^6 BGNMOD TSV4 

021626 TSV4: : 

10 
16 



TSV4 - MlSCF.LL.ANEr.OUS SECTIONS 
PROTECTION TABLt. 



MACRO M1?00 



C./ 

:fO MAR-ti4 OQiAA PAGE 19 



SEQ 0094 



18 

19 021626 
021626 

20 021626 

21 021636 
22 



177777 177777 



.SBTTL PROTECTION TABLE 
BGNPROT 
LJPROT:: 
177777 .WORD 

ENDPROT 



-1. -1. -1. -1 



iNO DEVICf PROTECTION REQUIRED 



TSV4 - MlsCt.LL ANtOUS SECTIONS 
INITIALX/F- SECTION 

^b 

21 

28 

29 

?0 

31 

^2 

35 

34 

35 

36 

37 021636 
021636 

38 

39 021636 

021636 012746 000340 
021642 012746 170000 
021646 012746 000140 
021652 012746 000003 
021656 104437 
021660 062706 000010 

40 

41 021664 005037 002220 

42 021670 005057 003130 

43 021674 012737 006354 

44 021702 005037 003146 

45 021706 005037 003126 

46 021712 005037 002274 

47 021716 

021716 012700 000036 

021722 104447 

48 021724 
021724 103023 

49 021726 023737 002174 

50 021754 105070 

51 021736 005737 003104 

52 021742 100472 

53 021744 013701 002174 
M 021750 006301 

S5 021752 005761 003170 

'>6 021756 001516 

57 021760 032761 040000 

58 021766 001060 

59 021770 
021770 104452 
0217/2 000416 

60 021774 

021774 012700 000035 
022000 104447 

61 022002 
022002 103052 

62 022004 

022004 01^700 000040 
0?2010 104447 

63 022012 



1 1 I 
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.SBTTL INITIALIZE SECTION 



THE IMTIALI/F. SECTION CONTAINS THE CODING THAT IS PERFORHtD 
AT THE BEGINNING OF EACH PASS. 

IF "START" OR "RESTART". SET QUICK PASS FLAG AND BUb-INIT. 
IF "CONTINUE", NOTHING IS REQUIRED . 



INSERT TEMPORARY JUMP TO ODT 
BGNINIT 

;ODT ROM ADDRt!:.S 



SEQ 00«5 



002172 



002012 



003170 



L$INIT:: 




SETVEC 


*140. #170000. <^340 


MOV 


#340. -CSP) 


MOV 


#170000. -CSP) 


MOV 


#140. -(SP) 


MOV 


#3, -(SP) 


TRAP 


CJSVEC 


ADO 


#10. SP 


40$: CLR 


EXTFEA 


CLR 


NXMFLG 


MOV 


#f.PRTl.EPRTSW 


CLR 


SIFLAG 


CLR 


KTENABLE 


CLR 


RAMSI2 


READEF 


#EF.CONTINlt 


MOV 


#EF. CONTINUE.ro 


TRAP 


CIREFG 


BNCOMPLETE 1$ 


BCC 


U 


CMP 


UNITN.L$UNIT 


BHIS 


4» 


TST 


DUFLG 


BMI 


NXTU 


MOV 


UNITN.Rl 


ASL 


Rl 


T3T 


ERTABL(Rl) 


BEQ 


SETU 


BIT 


#eiT14,ERTABL(Rl) 


BNE 


NXTU 


EXIT 


INIT 


TRAP 


CIEXIT 


.UORD 


L 10030 . 


1$: REAOEF 


#eF.NEW 


MOV 


#tF. NEW, RO 


TRAP 


CIREFG 


BNCOMPLETE NXTU 


BCC 


NXTU 


REAOEF 


#EF. START 


MOV 


#EF. START. RO 


TRAP 


C»REFG 


BCOMPLETE 2$ 



jJB REV A-O 



t SET UP PRIMARY MESSAGE ^OR REPLACEMENT 

iCLEAR "SOFT INTT- tLmG 

jCl EAR TEST AtiOVE 26K FLAG 

; CLEAR RAM SIZE FOR RAMERR ROUTINE 



;UNIT IN RANGE? 
iBP IF NO. 
iDROPPED Lf^IT? 
jBR IF YES 



iDROPPED? 

J DO NOTHING IF "CONTINUE 



J TAKE NEXT UNIT IF NOT NEW PASS. 



TSV4 ^nsCKl I ANCOUS SE.CTXONS 
INITIALI2t: SECTION 



HACRU MK^OO ['.0 MAR-Sn 08:40 PAGF ?0 1 



sea 0086 



022012 


103404 






BCS 


2$ 


64 022014 








RhAOEr 


*Cf- .RESTART 


022014 


012700 


000037 




MOV 


*Ef . RESTART, RO 


022020 


104447 






TRAP 


ClREFG 


65 022022 








BNCOMPLtTE 31$ 


022022 


103051 






BCC 


31$ 


66 022024 






2$: 






67 022024 








BRt.SET 




022024 


104433 






TRAP 


CtRLSET 


68 022026 


005037 


002206 




CLR 


TSTCNT 


69 022032 


005037 


002214 




Cl-H 


KATFLG 


70 022036 


005037 


003136 




CLR 


T23A 


71 022042 


005037 


003140 




CLR 


T23B 


72 








MOV 


0340, -(GP) 


73 








MOV 


020$. -(SP) 


74 








JMP 


COOT 


73 022046 


005037 


003372 




CLR 


SKIP! 


76 022052 






2C$: 






7 7 022052 


012737 


177777 002176 




MOV 


«-l,QVP 


78 022060 


004737 


020710 




JSR 


PC.ENVIRN 


79 022064 


004737 


021134 




JSR 


PC.KTINIT 


80 022070 


012700 


003170 




MOV 


OERTABL.RO 


81 022074 


005020 




30$: 


CLR 


CROV 


82 022076 


020027 


003370 




CMP 


RO.tfERTABE 


83 022102 


103774 






BLO 


30$ 


84 022104 


000404 






BR 


4i 


9^ 022106 


005037 


002176 


31$: 


CLR 


QVP 


86 022112 

87 


000137 


022162 




JMP 


PASRPT 


O 1 

88 022116 






4): 






89 022116 


012737 


177777 002174 


NEUPAS : 


MOV 


*-l,UNITN 


90 022124 


005037 


002212 




CLR 


DEVCNT 


91 022130 






NXTU: 


BREAK 




022130 


104422 






TRAP 


C$BRK 


9? 022132 


005257 


002174 




INC 


UNITN 


93 022136 


023737 


002174 002012 




CMP 


UNITN.L $UNIT 


94 022144 


103423 






BLO 


SETU 


95 022146 


012737 


177777 003104 




MOV 


#1.DUFLG 


96 022154 


000401 






BR 


11$ 


97 022156 








DOCLN 




022156 


104444 






TRAP 


C$OCLN 


98 022160 


000240 




lit: 


NOP 




99 022162 






PASRPT: 






100 022162 


023727 


002012 OOOOOX 




CMP 


L$UNIT.«1 


101 022:70 


101752 






BLOS 


NEUPAS 


102 022172 


005737 


002212 




TST 


DEVCNT 


103 022176 


001747 






BEQ 


NEWPAS 


104 022200 








RFLAGS 


RO 


022200 


104421 






TRAP 


CtRFLA 


105 022202 


032700 


000100 




BIT 


tflSR.RO 


106 022206 

107 

108 022210 


001343 






BNE 


NEWPAS 








DORPT 




022210 


104424 






TRAP 


C$DRPT 


109 022212 


000741 






BR 


NEWPAS 


no 0222X4 






10$! 






111 













;rjT PASS. BUS - INI T. . , 
jBUS RE5FT. 

iNUMBER Of TESTS RUN IN PASS 
J CLEAR FATAL ERROR COUNT 
iCLEAR ll/r'SA FLAG 
jCLEAR U/23B FLAG 

(RETURN TO DEBUGGER 
!iS3ENTER THE DEBUGGER 
iCLEAR THE SUBTEST "SKIPPER" 

! . . .QUICK VERIFi . . . 

iSET ENVIRONMENT . 

I INITIALIZE KT MEMORY MANAGEMENT 

[CLEAR THE ERROR TABLE 



jGO REPORT THE STATUS 



tINIT UNIT NUMBEfv. , . 

; CLEAR COUNT Or DEVICES RUNNING 



;...AND SET NEXT UNIT NUMBER. 



: ABORT, NO MORE UNITS. 



(HOW MANY UNITS SELECTED? 
jBR IF ONLY 1 
I ARE ANY STILL RUNNING? 
jBR XF NO 



I SHOULD WE PRINT STATISTICS 
I OR IF NO 



7SV4 Ml-;Ct-.LL ANLOl.'S St.CTlONS 
INITTALI^F SECTION 



llc» 



115 

114 
115 
116 
117 
118 
119 
1?.0 
1^1 
122 
123 
124 
125 
126 
12 7 
128 
129 
150 
131 
152 
133 
134 
155 
136 
137 
138 
139 
140 

141 
142 
143 



144 
145 
146 

14 7 
146 
149 
150 
151 
1^2 
lb:- 
1^>4 

156 
157 



022214 
022214 
022220 
022222 
022222 
022224 
022250 
022234 
022256 



022244 
022250 
022254 

022260 



022260 
022264 
022266 
022274 
022300 
022306 
022310 
022310 
022312 
022316 
022320 
022320 
022324 
022330 
022334 
022356 
022540 
022344 
022544 
022350 
0223S4 
022356 
022562 
022566 
022370 
022374 
022402 



0^2402 
022402 



013700 
104442 

103342 
005037 
005237 

012001 
010137 



022242 012001 



010137 
012721 
013721 



013701 
006301 
052761 
005037 
023727 
101416 

104421 
032700 
001412 

013746 

012746 
012746 
010600 
104417 
062706 

005057 
015701 
010102 
062702 
004737 
105005 
C10157 
012737 



002174 



005104 
002212 

002200 



002202 
016276 
002204 



002174 

lOOOOO 
005766 
002012 



001000 



0021/4 
022412 
000002 



000006 

003106 
002200 

000002 
016456 

003105 
177777 
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'JK TU 



SEQ 00H7 



IJ 



GPHARD 


UNITN.RO 


HOV 


UNITN,RO 


TRAP 


C$GPHRD 


BNCOMPLtTE NXTU 


BCC 


NXTU 


CI R 


DUfl.G 


INC 


DFVCNT 


MOV 


(ROn.Rl 


MOV 


Rl.C^RADDR 


MOV 


(R0)*,R1 


:MOV 


(R0).R2 


;MOV 


R2.IPRI 


MOV 


Rl.IVEC 


MOV 


OINTR.CRD* 


MOV 


IPRI.(Rl)* 


TSl 


UVP 


BEQ 


5$ 



jGFT UNIT N P-TABLE POrNTFR. 

iBR IF UNIT NOT AVAILABLE. 

;Cl EAR -DROPPED" EL AG. 

iGET 1ST REGISTER ADDRESS. 

jADDRESS or REGISTERS OE UNIT iJNDER ItSl 

GET VECTOR ADDRESS. 

GET INTERRUPT PRIORITr 

SET INTERRUPT PRIO^ITt. 

SET INTERRUPT VECTOR POINTER... 

. . .VECTOR. . . 

. . .AND PRIORITt . 



;1ST PASS ?? 

jNO, SKIP THE PASS 1 STUFF. 



;15T PASS. CHECK THAT DEVICE ADDRESSES ARE VALID. AND 
J THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 



003170 
000001 



10*1 



003104 



2$: 



MOV UNITN.Rl 

ASL R^ 

BIS ^»eiT15,ERTABLCRl) 

CLR EXTA 

CMP LtUNIT,<>l 

BL05 10$ 

PEL AGS RO 

TRAP CtRFLA 

BIT *PNT,R0 

BEQ 10$ 

PRINTF ^UNIT,UNITN 

MOV UNITN. (SP) 

MOV #PUNIT.-(5P) 

MOV «2. -CSP) 

MOV SP.RO 

TRAP C$PNTF 

ADD #6 . SP 

CLR NODEV 

MOV C5HADDR.R1 

MOV R1,R2 

ADD «TSSR.R2 

JSR PC.XNXM 

BCC 2$ 

MOV Rl. NODEV 

MOV O-l.DUFLG 



;SAY DEVICE RUNNING 
iCLEAR ERROR EXTENSION FLAG. 
;ARE WE TESTINCi MULTIPLE LWITS? 
iBR IF NO. 

J YES -- GET OPERATOR FLAGS. 

SHOULD UE PRINT UNIT />? 

BR IF NOT. 

PRINT THE UNIT 



ADDRESS OF FIRST REGISTER 
START OF REGISTERS 
ADDRESS OF TSSR REGISTER 
TEST BOH CONTROLLER REGISTERS 

I ... AND BR IF ALL OK . 

iFLAG DEVICE AS NON-EXISTENT 

iDROP THIS UNIT, 



O127C0 000000 



FINALLY, SET CPU PRIORITY ^ND WE'RE DONE. 
5$: SETPRI OPRIOO jENABLfc INTERRUPTS. 



SETPRI 

MOV 



OPRIOO 
^PRIOO.RO 



1/ 



TSV4 MISCFl L ANf-OlIS SECTIONS 
INITIALI/K SfcCTlON 

022406 104441 
1^8 022410 

022410 

022410 104411 
159 

IbO 022412 045 116 
161 
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SfcQ 00^8 



L 10030: 



045 PUNIT: 



TRAP CiSPRI 
tNDINlT 



TRAP 



CUNIT 



.ASCIV /iiN*Mi<A***** TtSTING UNIT KD2i*A **♦♦*/ 
.EVBN 
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ADO AND DROP UNITS SECTION'^ 



165 
164 
165 
166 
167 
166 
169 
1 70 



SEQ 00d9 



171 
172 
173 
174 
175 



176 



1/.- 
178 
179 
180 



181 

18r' 

183 
184 
16b 
186 
187 
188 
189 
190 
191 
192 

195 
194 
19b 
196 
197 
198 



199 



022460 
022460 
022460 
022462 
022464 
022472 
022500 
022500 
022502 
022506 
022512 
022514 
022516 
022522 
02252? 
022524 
022526 



022554 
022554 
022554 



022556 
022556 
022556 
022564 
022566 
022570 
022576 
022604 
022604 
022606 
022612 
022616 
02262C 

022626 
022626 
022650 



010001 
006301 
052761 
042761 

010046 
012746 

012746 
010600 
104417 
062706 

0001o7 

000026 

045 



104452 



012757 
OlOOOl 
006501 
052761 
000240 

010046 
012746 
012746 
010600 
104417 
062706 

000167 
000030 



.SHTTL ADD AND DROP UNITS SECTIONS 



THE ADD-UNir SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO OF. (A) ADDED TO THE TEST LIST KOR IHE J IRST TIME, 

OR CR) RE-INSERTED IF IT HAD BEEN PREVXOUbL.r DROPPED. 



L$AU 



BGNAU 



100000 
040000 



022526 
000002 



000006 



003170 
003170 



116 



045 





MOV 


RO.Rl i 




ASL 


Hi ; 




BIS 


^lOOOOO.ERTABl. CRl) ; 




BIC 


#40000. ERTABL(Rl) j 




PRINTF 


OIJ.RO 




MOV 


RO, -CSP) 




MOV 


^'^l$,-CSP) 




MOV 


*2, -CSP) 




MOV 


SP.RO 




TRAP 


CiPNTF 




ADD 


*6.5P 




EXIT 


AU 




.WORD 


JJJMP 




.WORD 


L10031-2- . 


1$: 


.ASCIZ 
.EVEN 


/iiUiif\ UNIT KD*A ADDED/ 




ENDAU 


; UNUSED. 


L 10031: 







GET UNIT \0 BE ADDED (RO) 
MAKE IT A WORD INDEX 
SET THE "ACTIVE" BIT 
CLEAR THP JROPPED" BIT 



TRAP 



CiAU 



THE DROP UNIT SECTION CONTAINS THE CODINC; THAT CAUSES A DEVICE 
TO BE REMOVED FROM THE TEST LIST. 

SUPVSR DOES THE "DROPPING". THIS IS JUST TO TELL THE HAN. 
"DROPPED" UNITS ARE RE -SELECTED ON OPERATOR "STA" OR "AO^ ' 
COMMAND. OTHERWISE REMAIN INACTIVE. THE "DISPLAY" COM' .hND 
WILL PRINT ALL DROPPED UNITS, AND THE P- TABLES OF -^'-ILiSE 
WHICH ARE STILL ACTIVE. 
UPON ENTRY. RO CONTAINS THE UNIT TO BE DROPPED. 



bgn:)u 



177777 003104 



L$DU:: 



140000 
000240 



022632 
000002 



000006 



003170 
000240 



MOV 


■5-l,DUM,G 


MOV 


RO.Rl 


ASL 


Rl 


BIS 


*140000,ERTABL(R1) 


240,240 


,240 


PRINTF 


dll.RO 


MOV 


RO,-(SP) 


MOV 


«1$.-CSP) 


MOV 


#2, CSP) 


MOV 


SP.RO 


TRAP 


C$PNTF 


ADD 


*6.SP 


EXIT 


OU 


.WORD 


JJvJMP 


.WORD 


L10032-2-. 



SAY DROPPED 
???????? ? 



f1 / 



TSV4 MlSCt-.l I ANt OUS SF.CTTONS 
AUD AND CHOP UNITS SFCllUN'.; 



200 


022632 


04b 


116 


201 








202 


022662 
022662 








022662 


104453 




205 








204 








20S 








206 


022664 
022664 






207 


022664 


013705 


002200 


208 


022670 


012703 


000550 


209 


0226 74 


004737 


016330 


210 


022700 


X03420 




211 


022702 








022702 


012727 


000372 




022 706 


OOGOOO 






022710 


013727 


002 11(^ 




022714 


OOOOOO 






022716 


005367 


177772 




022722 


001375 






022724 


005367 


177756 




022730 


001367 




212 


022732 


005305 




213 


022734 


001357 




214 


02277.6 


004737 


017262 


21'3 


022742 






216 


022742 
022/42 
022742 


104461 
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bta 0090 



045 



IS: 
L10032: 



.ASCI/ 

.tvr^N 

ENDDU 



/i<Ni<A UNIT if^D^f\ DROPPED/ 



TRAP C$DU 
AUTO-DROP CODF SECTION. 



tjGNAUTO 
L$AUT0: : 

MOV 

MOV 
10$; JSR 

BCS 

DELAY 

MOV 

.UORO 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

DEC 

BNE 

JSR 
20*: 

ENOAUTO 
L10033: 

TRAP 



CSHADDH,R5 

0360. .R3 

PC.WAITF 

20i 

250. 

.'>250. ,CPC)f 



L$DL.'.(PC^* 



-6(PC) 

. -4 

-22(PC) 

.-20 

R3 

10$ 

PC.CKDROP 



CJAUTO 



i POINT TO DEVICE 
J ENOUGH TIME FOR 
iWAIT FOR SSR TO SFT 
jl EAVE WHEN S3R IG SET 
;WAIT FOR .25 SECONDS 



RtGISTtR 
2400' REEL 



TO REWIND 



[BUMP COUNTER DOWN 

J KEEP GOING 

:TRY AND DROP UNIT 



UNUSED . 



N ' 



i 
TSV4 MISCF.U ANEOUS SECTIONS MACRO M1200 20-hAR-a4 08:44 PAGE ??. 

CLEAN-UP AND REPORT CODING SECTIONS 



SEQ 0091 



218 



21^ 








220 








221 








222 








225 








224 








225 


022/44 
022744 






226 


022744 


013705 


002200 


227 


022750 


00573 7 


003104 


228 


022754 


100405 




229 








250 








?J.i 


022756 


012765 


000000 


252 


022 '64 


004737 


016330 


2.33 


022 7 70 






234 


C22770 
022770 








022770 


104412 




25S 








236 








237 








233 








239 


022772 
022772 






240 


022772 








0227 72 


012746 


025234 




022776 


012746 


000001 




023002 


010600 






023004 


104416 






023006 


062706 


000004 


241 


023012 


010246 




242 


025014 


010346 




243 


023016 


010446 




244 


023020 


012 704 


003170 


245 


025024 


00500? 




246 


023026 


011402 




24 7 


023030 


001467 




240 


023032 


100066 




249 


023054 


032702 


040000 


250 


025040 


001015 




251 


02c»042 


042702 


170000 


252 


023046 








023046 


010246 






023050 


010346 






023052 


012746 


023271 




023056 


012746 


00C003 




023062 


010b 00 






025064 


104416 






023066 


062706 


000010 


253 


025072 


000446 




254 


025074 


020227 


160000 


255 


023100 


001012 




256 


025102 








023102 


010346 






023104 


012746 


023541 



.SBTTL CLEAN-UP AND REPORT CODING SECTIONS 



THE CLEANUP 
EXECUTED AT 



CODING SECTION CONTAINS THE CODTNG THAT IS 



THE END OK EACH PASS COR 



USE TO RETURN DEVICE UNDER TEST TO A 



SUB pass:). 

NEUTRAL STATE 



BGNCLN 
L^CLEAN: : 

MOV 

TST 
BMI 



000002 



IJ; 

2J: 

L 10054 



liOV 
JSR 

ENOCLN 

TRAP 



CSRADDR.RS 

DUFLG 

1$ 



/^O.TSSRCRb) 
PC.UAITF 



C$CLEAN 



iPOINT ro DEVICE REGISTER 
; "DROPPED" FLAG IS SET ON... 
J...AND GROSS CONTROLLER ^AULT... 
I... DON'T TRY TO XCT CLEANUP CODE 

jDU SOFT INIT 



THE REPORT CODING SECTION CONTAINS THE 

"PRINTS" CALLS THAT GENERATE STATISTICAL REPORTS 



BGNRPT 



L$RPT 



1$: 



2$: 



PRINTS 


^DEVSUM 




MOV 


WEV5UM. -CSP) 




MOV 


VH. -(SP) 




MOV 


SP.RO 




TRAP 


CJPNTS 




ADD 


'»4,SP 




MOV 


R2. -CSP) 




MOV 


R3. "(5P) 




MOV 


R4 , - C SP ) 




MOV 


^>EHTABL.R4 


J GET START OF ERROR TA 


CLR 


R3 


. CLEAR UNIT NUMBER 


MOV 


(R4).R2 


! GET ERROR T.^BL E ENTRY 


BEQ 


4; 


i ZERO IF UNIT NOT RUN 


BPL 


4( 




BIT 


*6IT;4,R2 


J UAS UNIT DROPPED? 


BNE 


2i 


I B^ IF YES 


BIC 


#tC77// .R2 


[ Gtl ERROR COUNT FIELD 


PRINTS 


i^DEV0NL.R3,R2 


J PRINT 


MOV 


R2. -CSP) 




MOV 


R5.-CSP) 




MOV 


iM)EVONL, -(SP) 




MOV 


«3. -CSP) 




MOV 


SP.RO 




TRAP 


C«PNTS 




ADO 


^lO.SP 




BR 


4$ 




CMP 


R2, 0160000 


: UAS UNIl NOfJ-bXISTENV 


BNl 


3i 


i BR IF NO 


PRINTS 


0DEVNXR,R3 




MOV 


R3. CSP) 




MOV 


V/DEVNXR, -CSP) 





1 w 
1 ' I 



TSV4 MISCM I ANf OUS 'UCTIONS MACRO MU^OO .'0 rtAR «4 0H;4n PAtH ,'.' 1 
CUbAN-UP AND REPORT CO0IN(-. SfCTlONS 



SfcCJ OO'^if 



^57 
.^60 



^61 
265 



264 
265 
266 
267 
260 
269 
2 70 
271 



2 72 
273 
2 74 
2 75 
276 
277 
27fl 
279 
280 
281 
282 
283 



023110 
023114 
025U6 
023120 
023124 
023126 
023132 
023134 
023134 
025156 
025142 
025146 
023150 
025152 
025156 
025160 
025164 
023164 
025166 
023170 
023174 
025200 
023202 
025204 
025210 
025214 
023216 
023222 
023224 
023226 
025250 
025252 
025232 
025232 



025254 
025271 

025541 
025425 
023504 



023554 



012746 
010600 
104416 
062706 
000431 
020227 
001012 

010546 
012746 
012 746 
010600 
104416 
062706 
000414 
042702 

010246 
010546 
012746 
012746 
010600 
104416 
062706 
0627O4 
005205 
020^27 
103701 
012604 
012603 
012602 



104425 



045 
045 
045 
045 
045 



00000.-^ 

000006 
L60001 



025425 
000002 



oooooe 

170000 



023504 
000005 



OOOOIO 
0OOO02 

003370 



5$ 



30$: 



4$ 



116 

101 
101 
101 
101 



045 
040 
O40 
0-40 
040 



L 10055: 



DEVSUM: 
DEVONL: 
DEVNXR; 
DEVNRO: 
DEVDROi 



MOV 

MOV 

TRAP 

ADD 

BR 

CMP 

BN6 

PRINTS 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

DR 

BIC 

PRINTS 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

ADO 

INC 

CMP 

BLO 

MOV 

MOV 

MOV 

ENORPT 

TRAP 



.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCI? 
.ASCIZ 
.EVEN 

ENOMOD 



Or\ ( SP ) 
SP.RO 
CIPNTS 
^.fiP 
4t 

R2. 0160001 
301 

WEVNRD.R-^ 
R5, (SP) 
OOEVNRD, -(SP) 
02, fSP) 
SP.RO 
CIPNTS 
06. SP 
4» 

0»C7777,R2 
OOEVDR0,R5,R2 
>^2» -(SP) 
R3. (SP) 
♦OEVDRO. -<SP) 
♦ 3, -(SP) 
SP.RO 
CIPNTS 
010, SP 
02. R4 
R3 

R4.0CRTA6E 
II 

(SP)*,R4 

(SP)»,R5 

(SP)».R2 

I 



WAS 
BR 



UNM NOT 
W NO. 



Hf-.ADi AT STARTitpy 



UNUSED. 



CIRPT 



/»N#A0EVICE STATUS SUMMARY :#N/ 

/*A UNIT *05i<A ONLINE. ERRORS - *0*N/ 

/*A UNIT *05*A DROPPED. NON-EXISTENT REGISTER^N/ 

/*A \MI^ *D5KA DROPPED, NOT READY AT STAR^UP#N/ 

/HA UNIT HD3*<A DROPPED t ERRORS • II09*N/ 



TSV4 Ml'.cn i *\Ni Ot"". SlCnON'J MACt^U Ml. '00 .'O MAR 84 OH:44 PALi^ ,M 

CLtAN-LiP AND RtPORT CUDINU SbCHONS "^^'^ ^^^^" 

1 

.TlTLt. THST 1 HAROWARt TfOT l-fl ThST^J 
5 
10 

11 0^?5S4 BUNMOD TSV/B 

02355A TSVVB!: 

i: 



1):-; 

TtST 1 HAHDWAPt IK'H 1 8 TtsT MACRO Mli^OO .-'0 HAH ■ H4 08:44 PAGfr. .»^ 
TtST 1: WRITt TAPE MARK PL TR1 



SECJ 0094 



-I • 

^8 
29 
30 
51 
5^ 
53 
34 
35 
36 
37 

36 025554 

023554 

39 023554 

44 023562 

45 023566 

46 023572 
4 7 023600 
48 023604 
49 

50 
51 
52 
53 
54 
55 
56 
57 
58 
59 

60 023604 
025604 
023604 

61 023606 

62 023612 

63 023616 

64 023622 

65 023630 

66 0^3654 
6V 023656 

025656 
025642 
025644 
023650 
025652 
025656 
025660 
025664 

68 023666 

69 025672 

70 025674 

74 025700 

75 023702 
023702 
023704 
023706 



012737 
012700 
00^737 
012737 
005037 



104402 
004737 
004737 
004737 
012737 
004737 
103426 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005357 
001556 
005237 
010001 

104455 
000145 
003646 



,SB!Tl. TEST 1: WRITE TAPE MARK RETRt 

THIS TEST VERIFIES PROPER OPERATION OF THE WRITE TAPE MARK RETR^ COMMAND (SPACE 
REVERSE. ERASE. WRITE TAPE MARK). SUBTESTS ARE AS FOLLOWS: 

THE TEST CONSISTS Of THE FOLLOWING 4 SUBTESTS 



006354 002172 

032147 

016570 

000005 002210 

026524 



T29L00P: 



BGNTST 

MOV 
MOV 
JSR 
MOV 
CLR 



^EPRTl.EPRTSW 

*TST29ID,R0 

PC.TSTSETUP 

flS.LOOPCNT 

T29CNT 



Tl:: 
(PRIMARY ERROR MESSAGE 
»ASC?:i MESSAGE TO IDENTIFY 
(00 INITIAL TEST SETUP 
(PERFORM 5 ITERATIONS 
I CLEAR TAPE RECORD COUNTER 



TEST 



TEST 1. SUBTEST 1 

VERIFIES THAT A WRITE TAPE MARK RETRY COMMAND ISSUFD WHILE THE 

TAPE IS POSITIONED AT BOT CAUSES FUT^iCTION REJECT TERMINATION. WITH THE 

NON-EXECUTABLE FUNCTION (NEF) ERROR BIT SET. 



I ■ 





BGNSU6 




!>>>>>>>>>*>> PEGIN SUBTEST >>> 


>>>>>>>>> 








Tl.l: 










TRAP 


CIBSUB 


032176 


JSR 


PC,T29flE5T 


:SET COMMAND PACKET 




032270 


JSR 


PC.T29flT2 


iSET UP OTHER COMMAND PACKET 




032332 


JSR 


PC.T29RT3 


I SET UP OTHER COMMAND PACKET 




025420 026530 


MOV 


#10000.. T29DLY 


iSET UP DELAY ROUTINE 




016054 


10$: JSR 


PC.SOFINIT 


1 00 INITIALIZE ON CONTROLLER 






BCS 


201 


iBR IF INIT WAS OK 






DELAY 


250 


(DELAY ABOUT .25 SECONDS 




000250 






MOV 
.WORD 


0250. CPO* 



002116 






MOV 
.WORD 


L$Dly.(PC)* 



177772 






DEC 
BNE 


-6CPC) 
. -4 


177756 






DEC 
BNE 


-22(PC) 
. -20 


026530 


DEC 


T29DLY 


iRUMP DELAY ROUTINE DOWN 






BNE 


10* 


iBR. IF MORE DELAY TIME LEFT 




002214 


INC 


FATFLG 


(ERROR COUNT 






MOV 


RO.Rl 


(CONTENTS OF TSSR REGISTER 






ERROF 


ERRNO, SFIERR. SFIMSG 


i FATAL ERROR TSSR WAS NOV OK 

TRAP 
.WORD 
.WORD 


C-ERDF 

101 

SFIERR 



u 

TFST 1 HARDWARt Te;sr 1-8 TtST MACRO M1200 ^.0 MAR -64 08:44 PAGE: il5 1 
TEST 1: WRITE TAPE MARK RItry 

20$: 



023710 


012114 






76 023712 

77 


013737 


002174 


026370 


78 023720 


012704 


026350 




79 023724 


004737 


010742 




80 023730 


103407 






81 023732 


005237 


002214 




85 023736 


010001 






86 023740 








023740 


104456 






023742 


000146 






023744 


005052 






023746 


012114 






87 023750 








023750 


104406 






88 023752 


016501 


000002 




89 023756 


01C102 






90 023760 


042702 


000100 




91 02S764 


020102 






92 023766 


001406 






96 023770 








023770 


104455 






023772 


000147 






023774 


026532 






023776 


015554 






97 024000 


004737 


017262 




98 024004 


004737 


011074 




99 024010 


016501 


000002 




100 024014 


012702 


00020^ 




101 024020 


105407 






102 024022 


010004 






103 024024 


005237 


002214 




107 024030 








024030 


104456 






024032 


000150 






024034 


030335 






024036 


012126 






108 024040 








024040 


104406 






109 024042 


013701 


026400 




110 024046 


010102 






111 024050 


052702 


000002 




112 024054 


020102 






113 024056 


001406 






114 024060 


005237 


002214 




lie 024064 








024064 


104456 






02^066 


000151 






024070 


030026 






024072 


015554 






119 024074 








024074 


104406 






120 024076 


013737 


003110 


026472 


121 024104 


012737 


141011 


036470 


122 024112 


012704 


026470 




123 024116 


010465 


000000 




124 024122 


004737 


016330 





MOV 


UNITN,T29DSW 


MOV 


flT29PACKET.R4 


JSR 


PC.URTCHR 


BCS 


25$ 


INC 


KATFLG 


MOV 


RO.Rl 


ERRHRD 


ERRN0,WRTMSG,SFIM3G 



25$: 



CKLOOP 



MOV 


TSSR(R5).R1 


MOV 


R1,R2 


BIC 


00t'"L.ft2 


CMP 


R1.R2 


BEQ 


26$ 


ERRDF 


ERRN0,T290FL,EXPREC 



26* 



30$ 



JSR 
JSR 
MOV 
MOV 
BCS 
MOV 
INC 
ERRHRD 



CKLOOP 



40$ i 



CKLOOP 



PCCKDROP 

PC.REUINO 

TSSRCR5),R1 

*SSR.R2 

30$ 

R0.R4 

FATFLG 

ERRN0,T29RWN,PKTSSR 



MOV 


T29BrR*6.Rl 


MOV 


R1.R2 


BIS 


*8IT1,R2 


CMP 


R1.R2 


BEQ 


40$ 


INC 


FATFLG 


ERRHRD 


ERRN0.T29B0T,EXPREC 



MOV 


FREE,T29RB 


MOV 


#141011. T29PK3 


MOV 


«T29PK3,R4 


MOV 


R4,TS0B(R5> 


JSR 


PC.WAITF 



SEQ 0095 



J SET UP UNIT NUMBER 



.WORD SFIM3G 



(SUBROUTINE NEEDS PACKET ADDRESS 
(ISSUE WRITE CHARACTERISTICS 
(BR. IF COMMAND ISSUED OK 

J ERROR COUNT 
(SAVE CONTENTS OF TSSR 
(WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



(LOOP IF SELECTED 

iGET THE TSSR 

(SET UP EXPECTED 

(OFF LINE SHOULD NOT BE 

(THEY SHOULD BE EQUAL 

jBR, IF O^L IS NCT SET 

(DRIVE IS OFF LINE 



(TRY ANO DROP DRIVE 
(CALL TAPE REWIND COMMAND 
(GET TSSR 

(SET UP EXPECTED TSSR 
;BR, IF NO PROBLEM 
(PACKET ADDRESS SET UP 

(ERROR COUNT 
(REWIND NOT ACCEPTED 



TRAP 



SET 



TRAP 
.WORD 
.WORD 
.WORD 



(LOOP IF SELECTED 

(PICK UP XSTO 

(SET UP EXPECTED 

(SET BOT BIT IN EXPECTED 

(DOES EXP - REC'D 

;BR» IF EQUAL (OK) 

(ERROR COUNT 
(TAPE NOT AT BOT AFTER 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



iLOOP IF SELECTED 



REWIND 
TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



C$ERHRD 
102 

WRTMSG 
SFIMSG 

C$CLP1 



C$ERDF 
103 

T290FL 
EXPREC 



CJERHRD 
104 

T29RWf^ 
PKTSSR 

C$CLP1 



C$ERHRD 
105 

T29eOT 
EXPREC 

C$CLP1 



(ADDRESS OF READ BUFFER 

(WRITE TAPE MARK RETRY ,CVC- 1 .ACK COMMAND 

(SET UP R4 WITH PACKET ADDRESS 

(ISSUE COMMAND 

(WAIT FOR SSR TO SET 



75$: 



TFST 1 HARDWARE TEST 1-8 TEST MACRO M1200 
TEST 1: WRITE TAPE MARK RETRY 



125 024126 

126 024132 

127 024136 

128 024140 

129 024142 
135 024146 

024146 
024150 
024152 
024154 

134 024156 
024156 

135 024160 

136 024164 

137 024166 

138 024172 

139 024174 

140 024176 

144 024202 
024202 
024204 
024206 
024210 

145 024212 

146 024212 

147 024214 

148 024216 
024216 
024216 

149 024220 

150 024226 

151 024230 

152 024234 
153 

154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 

165 024254 
024254 
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SEQ 0096 



016501 


000002 


012702 


100206 


020102 




001406 




005237 


002214 


104456 




000152 




02761a 




012126 




104406 




013701 


026400 


010102 




052702 


002000 


020102 




001406 




005237 


002214 


104456 




000153 




026660 




015554 




005103 




001273 




104403 




025727 


002214 000017 


103402 




004737 


017262 



170$ 



MOV 


T5SR(R5).R1 




iGET T5SR CONTENTS 






MOV 


flSSR!SC!BITl 


I8IT2.R2 


iSET UP EXPECTED 






CMP 


R1,R2 




I ARE THEY EQUAL 






BEQ 


75$ 




I BR, IF OK 






INC 


FATFLG 




: ERROR COUNT 






ERRHRD 


ERRN0,T29WDE, 


.PKTSSR 


;TSSR INCORRECT AFTER 


READ DATA 
TRAP 
.WORD 
.WORD 
.WORD 


C$tRHRD 
106 

T29WDE 
PKTSSR 


CKLOOP 






;LOOP IF SELECTED 


TRAP 


C$CLP1 


MOV 


T29BFR*6.R1 




iGET XSTO STATUS WORD 






MOV 


R1.R2 




[SET UP EXPECTED 






BIS 


*eiTl0,R2 




iSET THE NEF BIT 






CMP 


Rl R2 




(ARE THEY EQUAL 






BEQ 


170J 




jBR. IF EQUAL (GOOD) 






INC 


rATFLG 




J ERROR COUNT 






ERRHRD 


ERRN0,T29NEF, 


, EXPREC 


;NEF SHOULD BE SET 


TRAP 
.WORD 
.WORD 
.WORD 


CJERHRD 
107 

T29NfcF 
EXPREC 



999$ 



COM 
BNE 
ENDS'JB 



CMP 
BLO 
JSR 



R3 
26$ 



FATFLG. fll5 

999$ 

PC.CKDROP 



iRESET THE SWITCH 

jBR, IF FIRST TIME THROUGH HERE 

L10037: 

TRAP 
;IS ERROR COUNT AT 25 
(BR, IF LESS THAN 25 
J TRY TO DROP THE UNIT 



C*ESUB 



(TEST 1. SUBTEST 2 

i VERIFIES THAT A WRITE TAPE MARK RETRY COMMAND ISSUE.D WHILE THE TAPE 

ilS POSITIONED BEFORE THE FIRST RECORD ON TAPE CBUT NOT AT BOT ) RESU TS IN 

iTAPE STATUS ALERT TERMINATION. WITH THE REVERSE INTO BOT (RIB) STATUS BIT 

iSET. 



BGNSUB 



024254 

166 024236 

167 024242 
166 024246 

169 024252 

170 024256 

171 024260 

175 024264 

176 024266 
024266 



104402 
004737 
004737 
004737 
004737 
105407 
005237 
010001 

104455 



032176 
032270 
032332 
016054 

002214 



JSR 


PC.T29REST 


JSR 


PC.T29RT2 


JSR 


PC,T29RT3 


JSR 


PC.SOFINIT 


BCS 


20$ 


INC 


FATFLG 


MOV 


RO.Rl 


ERRDF 


ERRNO.SFIERR.SFIMSG 



t >>>>>>>>>>>> BEGIN SUBTEST >>>>•» ^ >>> >>^ 

T1.2: 

TRAP CJBSUB 
I SET COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 
I DO INITIALIZE ON CONTROLLER 
iBR IF INIT WAS OK 

I ERROR COUNT 
[CONTENTS OF TSSR REGISTER 
[FATAL ERROR TSSR WAS NOT OK 

TRAP C$ERDF 



TFST 1 ^ HARDWARt. FF.ST 1-8 TtST HACRO Ml^OO 
TtST 1: WRITE TAPE MARK RETRY 
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024270 
024272 
024274 

177 024276 

176 

179 024.^04 

180 024310 

181 024314 

182 024316 

186 024322 

187 024324 
024324 
024326 
024330 
024332 

188 024334 
024334 

189 024336 

190 024342 

191 024346 

192 024352 

193 024354 

194 024356 

198 024362 
024362 
024364 
024366 
024370 

199 024372 
024372 

200 024374 

201 024400 

202 024402 

203 024406 

204 024410 

205 024412 

209 024416 
024416 
024420 
024422 
024424 

210 024426 

211 024434 

212 024442 

213 024450 

214 024454 

215 024460 

216 024464 

217 024470 

218 024474 

219 024476 

220 024500 

221 024504 

222 024510 

223 024512 
024512 
024514 



000154 
003646 
012114 
013737 

012704 
004737 
103407 
005237 
010001 

104456 
000155 
005052 
012114 

104406 
004737 
016501 
012702 
103407 
010004 
005237 

104456 
000156 
030335 
012126 

104406 
013701 
010102 
052702 
020102 
001406 
005237 

104456 
000157 
030026 
015554 
012737 
012737 
012737 
012704 
010465 

oo/vn7 
or : n 

Oi;'702 
020102 
001420 
013703 
032703 
001405 

104455 
000157 



002174 026370 20i 

026350 
010742 

002214 



011074 
000002 
000200 



002214 



026400 
000002 

002214 



000001 
000400 
140005 
026470 
00000^ 
016330 
000002 
000200 



026400 
000004 



MOV 


UNITN.T29riSW 


MOV 


*T29PACK£T,R4 


JSR 


PC.WRTCHP 


BCS 


25$ 


INC 


FATFLG 


MOV 


RO.Rl 


ERRHRO 


ERRNO.WRTMSG.SFXMSG 



25$: 


CKLOOP 




26$ t 


JSR 


PC. REWIND 




MOV 


TSSRCR5),R1 




MOV 


#SSR.R2 




BCS 


30$ 




MOV 


R0,R4 




INC 


FATFLG 




ERRHRO 


ERRNO , T29RWN . PKTSSR 



30$ 



CKLOOP 



026472 
0264 76 
026470 



40$ 



MOV *1,T29RB 

MOV *256. ,T29SZ 

MOV #140005. T29PK3 

MOV *T29PK3,P4 

MOV R4,TSDB(R5) 

JSR PC.WAITF 

MOV TSSRCR5),R1 

MOV *SSR,R2 

CMP R1.R2 

BEQ 75$ 

MOV T29BFR*6.R3 

BIT #4.R3 

BEQ 41$ 

ERRDF ERRNO , T29WLK . SF IMSG 



SEQ 0097 



;SET UP UNIT NUMBER 



.WORD 
.WORD 
.WORD 



108 

SFIERR 

SFIMSG 



[SUBROUTINE NEEDS PACKET ADDRESS 
J ISSUE WRITE CHARACTERISTICS 
I DR. IF COMMAND ISSUED OK 

i ERROR COUNT 
iSAvE CONTENTS Of TSSR 
;WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



(LOOP IF SELECTED 



jCALL TAPE REWIND 
jGET TSSR 

;SET UP EXPECTED TSSR 
jBR. IF NO PROBLEM 
(PACKET ADDRESS SET UP 

J ERROR COUNT 
;REWIN0 NOT ACCEPTED 



TRAP 
COMMAND 



C$ERHRD 
109 

WRTMSG 
SFIMSG 

C$CLP1 



MOV 


T29BFR*6.R1 


; 


MOV 


R1,R2 


{ 


BIS 


*6IT1.R2 


I 


CMP 


R1.R2 


; 


BEQ 


40$ 


1 


INC 


FATFLG 




ERRHRD 


ERRNO. T29B0T,EXPREC 


t 



LOOP IF SELECTED 

PICK UP XSTO 

SET UP EXPECTED 

SET BOT BIT IN EXPECTED 

DOES EXP - REC'O 

BR. IF EQUAL (OK) 

i ERROR COUNT 
TAPE NOT AT BOT AFTER 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



C$ERHRD 
110 

T29RWN 
PKTSSR 

CJCLPl 



REWIND 
TRAP 
.WORD 
.WORD 
.WORD 
SPACE OVER 



C$ERHRD 
HI 

T2960T 
EXPREC 



NUMBER Of RECORDS TO 

SET UP RECORD SIZE 

WRITE FORWARD. CVC-l.ACK COMMAND 

SET UP R4 WITH PACKET ADDRESS 

ISSUE COMMAND 

WAIT FOR SSR TO SET 

GET TSSR CONTENTS 

SET UP EXPECTED 

ARE THEY EQUAL 

BR, IF OK 

PICK UP XTSO 

IS UNIT WRITE -LOCKED? 

NO. PROCEED WITH NORMAL ERROR 

TAPE IS WRITE LOCKED 

TRAP C$ERDF 
.WORD 111 
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TEST 1: WRITE TAPE MARK RCTRl 



SEQ 0098 





024516 


027674 






024520 


012114 




224 


024522 








024522 


10444'* 




225 


024524 


OC5237 


002214 


229 


024530 








024530 


104456 






024532 


000160 






024534 


027761 






024536 


012126 




230 


024540 








024540 


104406 




231 


024542 


012737 


000001 0264 72 


232 


024550 


012737 


140410 026470 


UP SPACE REVER 


5E 




233 


024556 


01^704 


026470 


234 


024562 


010465 


000000 


235 


024566 


004737 


016330 


236 


024572 


016501 


000002 


237 


024576 


012702 


000200 


238 


024602 


020102 




239 


024604 


001406 




240 


024606 


005237 


002214 


244 


024612 








024612 


104456 






024614 


000161 






024616 


027612 






024620 


012126 




245 


024622 








024622 


104406 




246 


024624 


013737 


003116 0264 72 


247 


024632 


012737 


141011 026470 


248 


024640 


012704 


0264 70 


249 


024644 


010465 


000000 


250 


024650 


004737 


016330 


251 


024654 


016501 


000002 


252 


024660 


012702 


100204 


253 


024664 


020102 




254 


024666 


001406 




255 


024670 


005237 


002214 


259 


024674 








024674 


104456 






024676 


000162 






024700 


027612 






024702 


012126 




260 


024704 








024704 


104406 




261 


024706 


013701 


026406 


262 


024712 


010102 




263 


024714 


052702 


000001 


264 


024720 


020102 




265 


024722 


001406 




266 


024724 


005237 


002214 


270 


024730 








024 730 


104456 






024732 


000163 






024734 


031754 






024736 


015554 





41$ 



75$ 









.WORD T29W1 K 








.WORD SriMSG 


DOCUN 




[DROP IT 


TRAP CJOCLN 


INC 


EATELG 


! ERROR COUNT 




ERRHRD 


ERRN0,T29WRT.Pi<TSSR 


iTSSR INCORRECT AFTER 


WRITE DATA 

TRAP C$ERHflD 
.WORD 112 
.WCRO T29WRT 
.WORD PKTSSR 


CKLOOP 




;LOOP IF SF_l.ECTED 


TRAP C$CI.P1 


MOV 


#1 , T29RB 


;N■.)^r3ER OF RECORDS TO 


SPACE OVER 


MOV 


*140410.T?9PI<3 


iS'"'! UP COMMAND IN APCKET 


MOV 


i>T29PK3,R4 


;SET UP R4 WITH PACKET 


■ ADDRESS 


MOV 


R4.TSDB(R5) 


; ISSUE COMMAND 




JSR 


PC.WAITF 


(WAIT FOR SSR TO SET 




MOV 


TSSR(R5),R1 


tGET TSSR CONTENTS 




MOV 


#SSR.R2 


jSET UP EXPECTED 




CMP 


R1.R2 


jARE T»-*eY EQUAL 




BEQ 


175$ 


;BR. IF OK 




INC 


EATELG 


t ERROR COUNT 




ERRHRO 


ERRN0,T29wOt.PI<TSSR 


;T5SR INCORRECT AFTER 


READ DATA 



175$ 



CKLOOP 



MOV 


FREE.T29RB 




MOV 


*141011,T29PK3 




MOV 


#T29PK3.R4 




MOV 


R4.TSCB(R5) 




JSR 


PC.WAITF 




MOV 


TSSR(R5),R1 




MOV 


*SSR!SC!BIT2.R2 




CMP 


R1,R2 




BEQ 


180$ 


t 


INC 


FATFLG 




ERRHRD 


E.RRN0,T29W0E.PKTSSR 


t 



180$ 



TRAP 
.WORD 
.WORD 
.WORD 

LOOP IF SELECTED 

TRAP 

ADDRESS OF BUFFER 

WRITE TAPE MARK RETRY .ACK .CVC- 

SET UP R4 WITH PACKET ADDRESS 

ISSUE COMMAND 

WAIT FOR SSR TO SET 

GET TSSR CONTENTS 

SET UP EXPECTED 

ARE THEY EQUAL 

BR. IF OK 

I ERROR COUNT 

TSSR INCORRECT AFTER READ DATA 



C$ERHRD 
113 

T29WDE 
PKTSSR 

CICLPI 

1 COHO. 









TRAP 


C$ERHRD 








. HORD 


114 








.WORD 


T29W0t 








.WORD 


PKTSSR 


CKLOOP 




(LOOP IF SELECTED 


TFiAP 


CJCLPl 


MOV 


T29eFRfl4,Rl 


jGET XST3 STATUS WORD 






MOV 


R1.R2 


iSET UP EXPECTED 






BIS 


#6IT0,R2 


(SET THE Rie BIT 






CMP 


R1.R2 


I ARE THEY EQUAL 






BEQ 


190$ 


iBR. IF EQUAL (GOOD) 






INC 


FATFLG 


i ERROR COUNT 






ERRHRD 


ERRN0,T29RIB,EXPREC 


iHV SHOULD BE SET 


TRAP 
.WORD 
.WORD 
.WORD 


C$ERHRD 
115 

T29flIB 
EXPREC 



;SET 



Tf-^U 1 HARUW^\RL le.ST 1 3 TtST MACRO M1200 .''O MAR a4 08:44 PAGt' <>^> 5 
rtST I: WRITf TAPt MAPk RLTRY 



bfO 0099 






a 75 

.V7 

^:78 

279 
c?81 

28b 



287 
288 
289 
290 
291 
292 
293 



294 
295 
296 
30C. 
301 



302 
303 
304 
305 
306 
510 
311 



312 



024740 
024740 
024 740 
024 74 
024742 
024 750 
024 752 
024756 



024756 
024756 
024756 
024 760 
024764 
024770 
024774 
025002 
025006 
025010 
025010 
025014 
025016 
025022 
025024 
025030 
025032 
025036 
025040 
025O44 
025046 
025O52 
025054 
025054 
025056 
025060 
025062 
025064 
025072 
C25076 
025102 
025104 
025110 
025112 
025112 
025114 
025116 
02S120 
025122 
025122 



104402 
004737 
004737 
004737 
012737 
004737 
103426 

012727 
000000 
013727 
OOOOOO 
005567 
001375 
005367 
001567 
005337 
001356 
005237 
010001 

104455 
OO0164 
005646 
012114 

013737 
012704 
004737 
103407 
005237 
010001 

104456 
000165 
005052 
012114 

104406 



1905 



104405 

033727 002214 

105402 

004737 017262 



000017 



999 1 



tNDSUB 



CMP 
Bl 
JSR 



999$ 

PCCKDROP 



;>>>>>>>>>>>> EhiD S'JOTCST >i * > . > ^ ^ > :. >> 

1.10040: 

TRAP 
IS F.RROH COiJ?\r Af 2S 
BR. IF" LKS^> THAN ?^j 

trt to orop the unit 



C$tSiJB 



test i, SUBTtST 3 

VtRIFIES THAT A WRITE TAPE MARK RETRt COMMA^*0 TERMINATES 

properly and WRITES THE TAPE MARK ONTO TAPE (Br ISSUING A READ REVERSE 

COMMAND AND CHECKING FOR TAPE STATUS ALERT TERMINATION AND TMK-i). 



BGNSUe 



032176 
032270 
032:32 
'3420 
016054 



000250 
002116 
177772 
177756 
026530 
002214 



026530 



10$ 



JSR 


PC.T29REST 


JSR 


PC,T29RT2 


JSR 


PC.T29RT3 


MOV 


#10000. ,T29DLY 


JSR 


PC.SOFINIT 


305 


20* 


DELAY 


250 



DEC 


T290LY 


BNE 


lOJ 


INC 


FAiTLG 


MOV 


RO.Rl 


ERRDF 


ERRNO.SFIERR.SFIMSG 



002174 
026350 
010742 

002214 



026370 20$ 



23$ 



MOV 
MOV 
JSR 
BCS 
INC 
MOV 
ERRHRD 



CKLOOP 



UNITN.T290SW 

*T29PACKET.R4 

PC.WRTCHR 

23$ 

FATr;_G 

RO.Rl 

ERRNO . WRTMSG . SF IMbG 



J *i>>>i>>>>>> 



>>>>>>>■» 



BEGIN SUBTEST 
T1.3: 

TRAP 
SET COMMAND PACKET 
SET UP OTHER COMMAND PACKET 
SET UP OTHER COMMAND PACKET 
SET \^ DELAY ROUTINE 
00 INITIALIZE ON CONTROl.LER 
BR IF INIT WAS OK 
DELAY ABOUT ,25 SECONOb 

MOV 
.WOftD 
MUV 
.WORD 
DEC 
BNt 
DEC 
BNE 
;BUrtP DELAY ROUTINE DOWN 
iDR, IF MORE DELAY TIME LEFT 

; ERROR COUNT 
; CONTENTS OF TSSR REGISTER 
(FATAL ERROR TSSR WAS NOT OK 

IRAP 
.WORD 
.WORD 
.WORD 

jSET UP DRIVE NUMBER 
:SLeROUTINE NEEDS PACKET ADDRESS 
1 ISSUE WRITE CHARACTERISTICS 
I BR. IF COMMAND ISSUED OK 

i ERROR COUNT 
iSAVE CONTENTS OF TSSR 
J WRITE CHARACTERISTISC 



C$BSUB 



#250, (PC5^ 


L$DLY.CPC) 


-6(PC) 
. 4 
22CPC) 
. -20 



C$ERDF 
116 

SFXERR 
sriMSG 



iLOOP l^ SELECTED 



FAILED 
TRAP 
.WORD 
.WORD 

.WORD 

TRAP 



C$ERHRD 
117 

WRTMSG 
SFIMSG 

C$CLP1 



Tt-ST 1 HARDWARr. TK^T 1 8 TtST MACRO Mlt?00 
rtSi 1: WRITt' TAPE MARK RLTRy 
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315 


025124 


Ol "'57 


011074 


314 


025130 


103411 




315 


025132 


016501 


000002 


316 


075136 


010004 




317 


025140 


005237 


002214 


321 


025144 








025144 


104456 






025146 


000166 






025150 


030335 






025152 


012126 




3^^ 


025154 








025154 


104406 




323 


025156 


013701 


026400 


324 


025162 


010102 




325 


025164 


052702 


000002 


326 


025170 


020102 




327 


025172 


001406 




328 


025174 


005237 


002214 


332 


025200 








025200 


104456 






025202 


00C167 






025204 


030026 






025206 


015554 




333 


025210 








025210 


104406 




334 


025212 


012737 


140011 


335 


025220 


012/04 


0264 /O 


336 


025224 


010465 


000000 


337 


025230 


004737 


016330 


338 


025234 


016501 


000002 


339 


025240 


012702 


000200 


340 


025244 


020102 




341 


025246 


001406 




342 


025250 


005237 


002214 


346 


025254 








025254 


104456 






025256 


000170 






025260 


030727 






025262 


012126 




34 7 


025264 








025264 


104406 




348 


025266 


01270? 


000001 


549 


025272 


012737 


141011 


350 


0253O0 


012704 


026470 


351 


025304 


010465 


000000 


352 


025310 


004737 


016330 


353 


025314 


016501 


000002 


354 


025320 


012702 


000200 


355 


025324 


020102 




356 


025326 


001406 




357 


025330 


005237 


002214 


361 


025334 








025334 


104456 






025556 


000171 






025340 


030/27 






025342 


012126 




362 


025344 







30$ 



40$: 



026470 



026470 



70$: 
150$ 



155$ 



CKLOOP 

MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



CKLOOP 



SFQ 0100 



JSR 


PC, REWIND 




{CALL TAPE REWIND COMMAND 




BCS 


30$ 




jBR. LF NO PROBLEM 






MOV 


TSSR(R5).H1 




J GET TS^R 






MOV 


R0.R4 




J SAVE PACKET ADDRtSS 






INC 


FATFLG 




.-ERROR COUN^ 






ERRHRD 


ERRN0.T29RWN 


.PKTSSR 


{REWIND NOT ACCEPTED 


TRAP 
.WORD 
.WORD 
.WORD 


C$ERHRD 

116 

T29RWN 

PKTSSR 


CKLOOP 






iLQOP IF SELECTED 


TRAP 


C$CLP1 


MOV 


T29BKR*6.R1 




iPICK UP XSTO 






MOV 


R1,R2 




jSET up EXPECTED 






BIS 


*eiTl.R2 




iSET BOT BIT IN EXPECTED 




CMP 


R1,R2 




iDOES EXP - REC'O 






BEQ 


40$ 




iBR. IF EQUAL COK) 






INC 


FAirLG 




i ERROR COUNf 






ERRHRD 


ERRN0.T29B0T, 


.EXPRtC 


J TAPE NOT AT BUT AFTER 


REWIND 





;100P IF SELECTED 



*140011.T29PK3 

*T29PK3,R4 

R4.TSDBCR5:) 

PC.WAITF 

TSSR(R5).R1 

«SSR,R2 

R1,R2 

70$ 

FATFLG 

ERRN0.T29W0C. PKTSSR 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



C$ERHRD 
119 

129601 
EXPREC 

C$CLP1 



WRITE TAPE MARK.ACK.CVCn COMMAND 

SET LP R4 WITH PACKET ADDRESS 

ISSUF. COt-MANO 

WAIT FOR SSR TO SET 

GET TSSR CONTENTS 

UP EXPECTED 

THEY EQUAL 

IF OK 

J ERROR COUNT 
TSSR INCORRECT AFTER WHITE TAPE MARK 



?ET 
ARE 
BR. 



TRAP 
.WOMD 
.WORD 
.WORD 



C$bRHRO 
120 

T29W0C 
PKTSSR 



MOV 


01. ,R3 


I 


MOV 


*141011.T29PK3 




MOV 


«T29PK3.R4 




MOV 


R4,TS0e(R5) 




JSR 


PC.WAITF 




MOV 


TSSRCR5),R1 




MOV 


#SSR.R2 




CMP 


R1.R2 




BEQ 


165$ 


I 


INC 


FATFLG 




ERRHRD 


ERRN'0.T29WDC. PKTSSR 


J 



LOOP IF SELECTED 

TRAP C$CLP1 
NUMBER or RECORDS TO WRITE TM 
WRITE TAPE MARK RETRY , ACK , CVC *1 COMMAND 
SET UP R4 WITH PACKET ADDRESS 
ISSUE COMMAND 
WAIT FOR SSR TO SET 
PICK UP TSSR 

SET UP EXPECTED (SSR ONi Y ) 
WAS STATUS GOOD 
BR. IF TERMINATION WAS GOOD 

i ERROR COUNT 
TSSR NOT CORRECT AFTER WRT TAPE M. 



165$ 



CKLOOP 



jLOOP IF SELECTED 



TRAP 
.WORD 
.WURO 
.WORD 



C$ERHRD 
121 

T29W0C 
PKTSSR 



/ .'-' 



TE-ST I HARDWARt: TEST 18 THST MACRU M1?00 r.'O MAR-a4 Oa : 44 PAGF. ^5 7 
ThST 1: WRITE TAPt MARK RCTRY 



SEQ 0101 



025344 


104406 




7>h5> 025346 


012737 


140401 0264/0 


364 025354 


013737 


005116 026472 


365 025362 


012704 


0264 70 


366 025366 


010465 


000000 


567 025372 


004737 


016330 


368 025376 


016501 


000002 


^69 025402 


05 2702 


100204 


370 025406 


020102 




371 025410 


001406 




372 025412 


005237 


002214 


376 025416 






02541b 


104456 




025420 


000172 




025422 


031673 




025424 


012126 




377 025426 






025426 


104406 




378 025430 


013701 


026400 


379 025454 


010102 




380 025436 


052702 


100000 


381 025442 


020102 




382 025444 


001406 




383 025446 


005237 


002214 


387 025452 






025452 


104456 




0254 54 


000173 




025456 


032054 




025460 


015554 




388 025462 






025462 


104406 




389 025464 






025464 






025464 


104403 




390 02546& 


023727 


002214 000017 


391 025474 


103402 




592 025476 


004737 


017262 


393 025502 






394 






395 






596 






397 






398 






599 






400 






401 






402 






403 






404 






405 025502 






025502 






02550C 


10440 




406 025504 


0O473, 


''A2176 


40 7 025510 


004 757 


052270 


408 025514 


004757 


032332 


409 0255^0 


01273/ 


023420 026530 


410 025526 


004737 


016054 



MOV 


/?140401,T29PK3 


MOV 


FREE,T29RB 


MOV 


^T29PI<3.R4 


MUV 


R4,TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5).R1 


MOV 


V>SSR!SC!BIT2.R2 


CMP 


R1.R2 


DKQ 


222$ 


INC 


KATFLC. 


ERRHRP 


E.RRN0,T29RD(i,PI< 



222$ 



226$ 



CKLOOP 
ENOSUB 



BLO 
JSR 



999$ 



TRAP 
READ REVERSE, ACK, COMMAND 
NUMBER or RECORDS TO SPACt BACK 
SET UP R4 WITH PACKET ADDRESS 

I ISSUE COMMAND 
WAIT rOR SSR TO SET 
GET TSSR CONTENTS 
SET UP EXPECTED 
ARE THEY EQUAL 
BR, W OK 

; ERROR CO(JNT 

iTSSR INCORRECT AEIER SPACE CMD . 



C$CLP1 













TRAP 


C$ERHR 












.WORD 


l'^? 












.WORD 


r29RDG 












.I'DPO 


PKTSSR 


CKLOOP 






jLOOP IF SELECTED 




TRAP 


C$CLP1 


MOV 


T29eF"R*6.Rl 




iPICK UP XSTO 








MOV 


R1.R2 




jSET LP EXPECTED 








BIS 


*eiT15.R2 




;TMK SHOULD BE SET 








CMP 


R1.R2 




ilS TMK SET 








BEQ 


226$ 




iBR, IF TMK WAS SET 


(GOOD) 




INC 


EATFLG 




J ERROR COUNT 






ERRHRD 


ERRNa,T29RRN 


EXPRtC 


;TMK NOT SET AFTER 


READ 


REV 





iLOOP IF SELECTED 



<<<<<<<<<<< 



TRAP 
.WORD 
.WORD 
.WORD 

TRr.P 
>>>>>>> 



FATFLG.*15 

999$ 

PC . CKDROP 



END SUBTEST 
L 10041: 

TRAP 
IS ERROR COUNT AT 25 
BR, IF LESS THAN 25 
TRY TO DROP THE UNIT 



C$ERHRD 
123 

T29RRN 
EXPPEC 

C$Cl PI 
> > > > 

C$E5UB 



TEST 1. SUBTEST 4 

VERIFIES THAT THE SPACE -REVERSE PORTION OF THE WRITE TAPE MARK 
jRETRY OPERATION IS PERFORMED BY REWINDING THE TAPE. ISSUING SEVERAL 
: WRITE TAPE MARK RETRY COMMANDS IN SUCCESSION, THEN ISSUING TWO SPACE 
, RECORDS REVERSE COMMANDS IN SUCCESSION. THE SECOND SPACE RECORDS REVERSE 

COMMAND SHOULD TERMINATE WITH REVERSE INTO BOT CRIB) STATUS SET. 



BGNSUB 



10$ 



JSR 


PC,T29REST 


JSR 


PC.T29RT2 


JSR 


PC.T29RT3 


MOV 


dlOOOO. ,T29DLY 


JSR 


PC.SOFINIT 



,>>>>>>>>>>>% BEGIN SUBTEST >>>>>>■•>> ^ > > 

T1.4; 

TRAP CJdbUB 
[SET COMMAND PACKET 
[SET UP OTHER COMMAND PACKt T 
[SET UP OTHER COMMAND PACKET 
iSET UP DELAY ROUTINE 
[DO INITIALIZE ON CONTROLLER 



I 



' ] 



TeST 1 HARDWARC TEST 1-0 TEST MACRO M120C 20 MAR-84 08:44 PAtJt. ^'.3 -8 
TEST 1: WRITF TAPE MARK RCTRV 



SEQ 0102 



411 
412 



413 
414 
415 
419 
420 



421 
422 
423 
424 
42^^ 
429 
4 30 



431 

432 
433 
434 
435 
4 36 
440 



441 

44? 
443 
444 
44b 
446 
44? 
451 



452 



025532 
^25534 
025534 
025540 
025542 
025546 
025550 
025554 
025556 
025562 
025564 
025570 
025572 
025576 
025600 
025600 
025602 
025604 
025606 
025610 
025616 
02562^ 
O^'.o26 
025630 
025634 
025636 
025636 
025640 
025642 
025644 
025646 
025646 
C25650 
025654 
025656 
025662 
025664 
025670 
025670 
025672 
025674 
025676 
025/00 
025/00 
025702 
025706 
025710 
025/14 
025716 
025720 
025724 
025724 
025726 
025/30 
025732 
025734 
025754 



103426 

012727 
000000 
01572/ 
000000 
005367 
001375 
005367 
001367 
005337 
001356 
005237 
010001 

104455 
000174 
003646 
012114 
013737 
012704 
004737 
103407 
005237 
010001 

104456 
000175 
005052 
012114 

104406 
004737 
103411 
016501 
010004 
005237 

104456 
0O0176 
030335 
012126 

104406 
013701 
010102 
052 /02 
020102 
001406 
0O52S7 

104456 
000177 
0300^^6 
015554 

104406 



000250 
002116 
177772 
177756 
026530 
002214 



002174 026370 20$ 

026350 

010742 

002214 



23$: 



011074 
000002 
002214 



30$: 



RCS 


20 J 




BR If INll WAS OK 




DELAY 


250 




DELAY ABOUT .25 SECONDS 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 


<^2'='.0.^'^C)* 



L$DL r.CPC) 



"6(PC) 

. '^ 

■22CPC) 

.-20 


DEC 


V29DLy 




BUMP OELAt ROUTINE DOWN 




BNE 


10'. 




BR. IF MORE DELAY TIME LEFT 




TNC 


FATFLG 




: ERROR COUNT 




MOV 


RO.Rl 




CONTENTS OF TS5R REGISTER 




ERRDF 


ERRNO.SFIERR, 


sriMSG 


FATAL ERROR TSSR WAS NOT OK 

TRAP 

.WORD 
.WORD 
.WORD 


C$ERDF 

124 

SFItRR 

SFIMSG 


MOV 


UNITN.T29DSU 




SET UP DRIVE NUneER 




MOV 


<>T29PACKET.R^ 




SUBROUTINE f^EEDS PACKET ADDRESS 


JSR 


PC.WRTCHR 




ISSL«=: WRITE CHARACTERISTICS 




BCS 


23$ 




BR. F COMMAND ISSUED OK 




INC 


FATFLG 




; ERROR COUNT 




MOV 


RO.Rl 




SAVE CONTENTS OF TSSR 




ERRHRO 


ERRNO.WRTMSG. 


SFIMSG 


WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 

.WORD 
.WORD 


C$ERHRD 
125 

WRTMSG 
SFIMSG 


CKLOOP 






LOOP IF SELECTED 

TRAP 


C$CUP1 


JSR 


PC. REWIND 




CALL TAPE REWIND COMMAND 




BCS 


30$ 




BR, IF NO PROBLEM 




MOV 


TSSRCR5),R1 




Gl-.T TSSR 




MOV 


RO. R4 




SAVE PACKET ADDRESS 




INC 


F'AIFLG 




J ERROR COUNT 




ERRHRD 


ERRN0,T29RWN, 


PKTSSR 


REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 


C$FRHRD 
l.>. 

T29RWN 
PKTSSR 



026400 
000002 

002214 



40$: 



CKLOOP 

MOV 
MOV 
BIS 
CMP 
BEQ 
INC 
ERRHRD 



CKLOOP 



(LOOP IF SELECTED 



r29BFR»6.Rl 

R1.R2 

*BIT1,R2 

R1.R2 

40$ 

FATFLG 

ERRN0.T29B0T.EXPREC 



TRAP 



PICK UP XSTO 
SET UP EXPECTED 
SET BOT BIT IN EXPECTED 
I DOES EXP • RfcC'D 
iBR, IF EQUAL (OK) 

i ERROR COUNT 
;TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
I LOUP IF SELECTED 

TRAP 



C$CLP1 



C$ERHf^O 
127 

T29B01 
EXPREC 

C$CLPl 



\Ay> 



TfSr 1 HARDWARr T^^■^T 1-8 Tt-ST MACRO M1200 :iO MAR-tt4 08:4^ PAGF 25-9 
TE.Sr 1; WRITt: TAPb. MARK Rt.TRY 



4S4 

456 

457 
45(5 
459 
460 
461 
465 



466 

467 
468 
469 
470 
471 
4.^2 
473 
474 
4 75 
4 76 
477 
481 



482 

463 
484 
485 
466 
487 
488 
489 
490 
491 
492 
493 
494 
498 



499 

500 
501 
50L' 
503 



025736 
025744 
025750 
025754 
025760 
025764 
025770 
025772 
025774 
026000 
026000 
026002 
026004 
026006 
026010 
026010 
026012 
026016 
026024 
026052 
026056 
026042 
026046 
026052 
026056 
026060 
026062 
026066 
026066 
026070 
026072 
026074 
026076 
026076 
026100 
026102 
026104 
026112 
026120 
026124 
026130 
026134 
026140 
026144 
026146 
026150 
026154 
026154 
026156 
026160 
026162 
026164 
026164 
026166 
026174 
026202 
026206 



012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
000200 
030727 
012126 

104406 
012703 
012737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
000201 
03072 7 
012126 

104406 
005303 
001355 
012737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
000202 
027612 
012126 

104406 

012737 
012/37 
012704 
010465 



140011 
026470 
000000 
016330 
000002 
000200 



002214 



000012 
000001 
141011 
026470 
000000 
016330 

ooooo; 

000200 



002214 



140410 
000001 
026470 
000000 
0x6330 
000002 
100204 



002214 



100410 
000005 
026470 
000000 



026470 



MOV 


V?140011.T29PI<3 


MOV 


^ir29Pl<3.R4 


MOV 


R4.TSDB(R5) 


J:^R 


PC.WAITF 


MOV 


TSSRCR5),R1 


MOV 


0SSR.R2 


CMP 


R1,R2 


BtQ 


70$ 


INC 


FATFLG 


ERRHRD 


tRRNO . T29WDC. PKTSSR 



0264 /2 
026470 



70$: 
150$ 



155$ 



CKLOOP 



MOV 


*10. ,R3 


MOV 


dl ,T29P8 


MOV 


0141011, T29PK3 


MOV 


«T29PK3,R4 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


T55R(R5),R1 


MOV 


0SSR.R2 


CMP 


R1.R2 


BEQ 


165$ 


INC 


FATFLG 


ERRHRD 


ERRN0.T29UDC,PI<TSSR 



165$: 



CKLOOP 



026470 
026472 



DEC 


R3 


BNE 


155$ 


MOV 


0140410. T29PK3 


MOV 


01 ,T29RB 


MOV 


i>T29PK3,R4 


MOV 


R4.TS0B(R5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5).R1 


NOV 


0SSR!SC!BIT2,R2 


CMP 


Rl R2 


bEQ 


22 •$ 


INC 


FATFLG 


ERRHRD 


ERRN0.T29WD&.PKrsyR 



222$: 



0264/0 
026472 



CKLOOP 

MOV 
MOV 
MOV 
MOV 



0100410, T29PK3 
05.T29RB 
or29PK3.R4 
R4.TSDB(R5) 



SEQ 0103 



;WRI1E TAPE MARK. ACK ,CVC= 1 COMMAND 
J SET UP R4 WITH PACKET ADDRESS 
: ISSUE COMMAND 
:WATr FOR SSR TO SET 
jGFr TSSR CONTENTS 
:S( r UP EXPECTED 
jAM THEY EQUAL 
jBfi. IF OK 

1 ERROR COUNT 
jTSBR INCORRECT AFTER WRITE TAPE MARK 



LOOP IF SELECTED 



TO 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 
WRITE TM 



CjtRHRD 
125 

T29W0C 
PKTSSR 

C$CLP1 



NUMBER OF RECORDS 

SET UP PACKET 

WRITE TAPE MARK RETRY .ACK .CVC-1 COMMAND 

SET UP R4 WITH PACKET ADDRESS 

ISSUE COMMAND 

WAIT FOR SSR TO SET 

PICK UP TS5R 

SET UP EXPECTED (SSR ONLY) 

WAS STATUS GUOO 

BR. IF TERMINATION WAS GOOD 

; ERROR COUNT 
TSSR NOT CORRECT AFTER WRT TAPE M, 



I OOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



C$ERHRD 
129 

T29W0C 
PKTSSR 



C$CLP1 



;BUMP COUNTER DOWN 

iBR. IF LESS THAN 10 TAPE MARKS 

;SPACE REVERSE, ACK.CVC-1. COMMAND 

i NUMBER OF RECORDS TO SPACE BACK 

;SET UP R4 WITH PACKET ADDRESS 

i issue COMTIANO 

iWAIT FOR SSR TO SET 

J GET TSSR CONTENTS 

tSET Uf^ EXPECTED 

;ARE THEY EQUAL 

iBR. IF OK 

J ERROR COUNT 

:TSSR INCORRECT AFTER SPACE CMD. 

TRAP C$LRHRD 
. WORD I :^o 
.WORD [.'9WDE 
.WORD PKTSSR 

iLOOP IF SELECTED 

TRAP C$CLP1 

; SPACE REVERSE. ACK, COMMAND 

: NUMBER OF RECORDS TO SPACE BACK 

[SET UP R4 WITH PACKET ADDRESS 

J ISSUE COMMAND 



N8 



ThST 1 HARDWARE TF.ST 18 TEST MACRO M1200 u'O-MAR-84 08:44 PAGE 25-10 
TtST 1: WRITE TAPE MARK RETRY 



SO-I 

507 
506 
S09 
S13 



514 

515 
516 
517 
518 
519 
520 
524 



525 
526 
527 



528 
529 
530 
531 
532 
535 
534 
535 
536 
537 
538 



539 
540 
541 
543 
545 
546 
547 
548 
549 
550 
551 
552 
553 



026212 
026.U6 
026,^22 
026226 
026250 
026252 
026236 
026236 
026240 
026242 
026244 
026246 
026246 
026250 
026254 
026256 
026262 
026264 
026266 
026272 
026272 
026274 
026276 
026300 
026302 
026302 
026304 
026304 
026306 
026306 
026306 
026310 
026316 
026520 
026324 



026324 
026330 
026:32 
026356 
026336 
026340 



026350 
026550 
026352 
026354 

026356 
02t 560 



016530 
000002 
100204 



002214 



02640C 
000001 

002214 



'c^O 



560 
Oc6362 
026364 



004737 
016501 
012702 
020102 
001406 
005237 

104456 
00020? 
031673 
012126 

104406 
013701 
010102 
052702 
020102 
001406 
005237 

104456 
000204 
031754 
015554 

104406 

104406 



1C4403 

023727 002214 000017 

103402 

004737 017262 



004737 016536 

103002 

000137 023604 

104432 
004022 



026350 

014004 
026360 
000000 
000012 

0263/2 
OOOOOO 
000024 



JSR 


PC.WAITI 


MOV 


rSSR(R5),Rl 


MOV 


V/:if.R:SC!BlT2,R2 


CMP 


R1.K2 


PF.Q 


260$ 


INC 


EATELG 


ERRHRD 


ERRN0,T29RDG,PI<TSSR 



260$: 



CKLOOP 



MOV 


T290FRtl4,Rl 


MOV 


R1.R2 


BI5 


^6IT0,R2 


CMP 


91, R2 


BEQ 


^•'ot 


INC 


FA'FL.G 


ERRHRD 


ERnN0.T29RIB.EXPREC 



270$ 
330$ 



999$ 



CKLOOP 
CKLOOP 
ENDSUB 



CMP 
BLO 
JSR 



163$: 



rATFLG,#15 

099$ 

PCCKDROP 



JSR 


PC.TSTLOOP 


BCC 


163$ 


JMP 


T29L00P 


EXIT 


TST 



J LOCAL STORAGE 


FOR THIS 


.-<.*K 


)>£177770 


T29PACKeT: 




.WORO 


14004 


.WORD 


T29DATA 


. WORD 





.WORD 


10. 


T29DATA: 




.WORD 


T29BFR 


.WORD 





.WORD 


20. 



SEQ 0104 



WAIT FOR SSR TO SET 
GET TSSR CONTENTS 
;SET UP EXPECTED 
ARE THEY EQUAL 
;BR. IF OK 

J ERROR COUNT 
;T5SR INCORRECT AFTER SPACE REV 

TRAP 



LOOP IF SELECTED 



.WORD 
.WORD 
.WORD 

TRAP 



iPICK UP XST3 

:SET UP EXPECTED 

I RIB SHOULD BE SET 

;IS RIB SET 

iBR, IF RIB WAS SET (GOOD) 
J ERROR COUNT 

jTMK NOT SET AFTER READ REV 

TRAP 
.WORD 
.WORD 
.WORD 

(LOOP IF SELECTED 

TRAP 

{LOOP IF SELECTED 

TRAP 

(<<<<<<<<<<< E:hjO SUBTEST >>>>!>> 

L 10042: 

TRAP 
;IS ERROR COUNT AT 25 
:BR. IF LESS THAN 25 
(TRY TO DROP THE UNIT 



tOO WE NEED TO ITERATE TEST 

(BR. IF NO LOOP REQUIRED 

[EXECUTE AGAIN 

(ALL DONE THIS TEST 

TRAP 
.WORD 



CMD. 

C$>RHRD 

131 

T29RDG 

PKTS5R 

CJCLPl 



C$ERHRD 
132 

T29RIB 
EXPREC 

C$CLP1 

C$CLP1 

C$ESUB 



ciExir 

L10036 



[COMMAND PACKET FOR TEST 

(WRITE CHARACTERISTICS COMMAND. WITH CVC-1, ACK 

[ADDRESS OF CHARACTERISTICS BLOCK 

[STARTING VALUE 0»- BLOCK SIZE 
(CHARACTERISTICS DATA BLOCK 
(ADDRESS OF MESSAGE BUFFER 

[LENGTH or -MESSAGE BUFFER 



re ST I HARDWARf ThST I 8 r^sr MACRO Mlc'OO ^*0 MAR 84 08:44 PAUt ."j II 
Tt.ST 1: WRITe TAPt MARK Rl.TRlr 



554 026366 

bS^ 026570 

556 026372 

557 

556 

55*^ 

561 

:^65 026460 

564 026460 

565 026462 

566 026464 

567 026466 
568 

572 026470 

573 026470 

574 026472 

575 026472 

576 026474 
57 7 026476 
578 

579 
580 
581 

582 026500 

583 026500 

584 026501 

585 026502 

586 026504 
587 

588 
589 
590 
591 

592 026506 

593 026510 

594 026512 

595 026514 

596 026516 

597 026520 

598 026522 
599 

600 

601 026524 

602 

605 026526 

604 026530 

605 

606 

607 

609 026532 

610 026555 

611 026660 

612 026750 

613 027017 

614 027133 
6i5 027247 



000000 
000000 



026460 

100006 
026500 
000000 
000006 



140005 

00511'> 
000000 

000000 



010 

200 

000000 

000000 



140001 
140401 
141001 
161001 
141401 
161401 
177777 



000000 
000000 

oooooo 



104 
124 
X27 
124 
127 



127 
120 



162 

141 
122 
123 
122 

122 
117 



151 
160 
111 
125 
111 

111 

123 



1.^90SWi 

T29erH! 


.WORU 
.WORD 
.B( KW 




25. 


iWRlTt. 


^l«SYSTtM MEMORY COMMAND PACKET 


T29PK2; 


. "< . •lO 

.WORD 
.WORD 
.WORD 
.WORD 


^6177/70 

lOOOOf^ 

T29Br2 



6. 


T29PK3: 

T29R8; 
T29W6: 

T29SZ! 


.WORD 

.WORD 

.WORD 
.EVEN 


140005 

fREt 






1 

T296F2: 

T29BS0: 

T29031: 

T29S2: 

T29S5: 

1 


.BYTE 
.BYTE 
.WOt^O 

.WONO 


10 
200 





.EVEN 
I TAPE hOTION PACKET COMMAND VALUES 



T29M»^ .WORD 
T29VvW; .WORD 
T29C0N: .WORD 
.WORr 
. WOT.O 
.WORD 
.WORD 

T29CNT: .WORD 



14^X)0l 
140401 
141001 
161001 
141401 
161401 
177777 



')f 'i OlO^ 



r.H.KT DRIVf 
|Mh50A(iF fliJfTFiR 



iWRirr !,uii srs Mf.M command, and ach* 

lADORt'iS or Sf-lfCT BLOCK DATA 
r>I/fc OK DATA PACKET 



IWRITF TAPF MARK RETR< COMMAND, CVC'l AND ACK 
lADDRESS Of WRITE Bl>FER 
iSIZE OF BUfTEM (EXTENT:) 



iBSELO AREA 
iBSEl 1 AREA 
iSEL 2 AREA 
lOATA AREA 



T29RSZ: .WORD 
T290LY: .WORD 

IlOCAL text messages for TEST 
I - 



iREAO OATA 

iREAO DATA REVERSE 

iREAO PREVIOUS OPP-0 

iREAO PREVIOUS OPP-l 

(WRITE TAPE -iARK RETRf NEXT Of^P-O 

lURITE TAPE MARK RETRY NExT OPP-l 

lENC OF O.^TA 



I TAPE RECORD COUNTER STORAGE AREA 

AREA 



iRECO«!»D STORAGE SI7E 
iDELAY COUNTER STORAGE AREA 



T290rL: .ASCIZ 

T29gNG; .ASriZ 

T29NEF! .ASCIZ 

T29R0F; .ASriZ 

T29RRF: .ASCIZ 

T29RRG! .A5CTZ 

T29SCi .ASCIZ 



'Dp;v« ;• OFFLINE* 

• T«p« Position Incorrect Aft«r W;1ITE TAPE MARK RETRi Pr«vIou« (OPP'l)' 

'l«ITE TAPE MARK RETRY. At BOT. FalUd To S«t NfF (X^TOV 

'TSSR Incorrect Aft#r READ DATA Ciyimmrx'A' 

'WRITE TAPE MARK RETRY Pp^vIou* CSp»c« R«v«p««. R«»d Forward^ Command f>;ud 

•WRITE TAPE MARK RETRY Prtvlou* (R«»d For*-ard. Spac« R«v«rs«) Coffwand Fftii«d 

'POSITION (Spact Command) F«;i«d. TSSR Not Correct* 



TeST I HAJ^DWARl TKSl i H TtSl MACRO Ml^OO ^:0 HAR-8n 08:44 PAfit'. ^^ IH 
ThST 1: WRITF TAPt MARK RCTRTi 



SF^^l OlOf. 



616 
6W 
bi8 
619 
620 
621 
6.?2 
625 
624 
625 
626 
627 
628 
629 
650 
631 
632 
635 
634 
635 
636 
637 
638 
639 
640 
641 
642 
64 3 
644 
645 
646 
64 7 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
656 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 



027331 
027401 
027456 
027537 
027612 
027674 
027 761 
0i0026 
030073 
030161 
030257 
030335 
030404 
030457 
030545 
030620 
030727 
031021 
031074 
031166 
031255 
031337 
031421 
031507 
031575 
031673 
031754 
032054 
032147 



032176 
032176 
032202 
032206 
032212 
032216 
032220 
032224 
032230 
032232 
032236 
032240 
032244 
032250 
032256 
032260 
032264 
032266 

032270 



122 
124 
111 
127 
124 
052 
124 
124 
104 
127 
124 
122 
122 
124 
104 
124 
124 
103 
124 
127 
122 
122 
122 
122 
104 
124 
127 
124 
127 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
012711 
012702 
012762 
005742 
020227 
001371 
000207 



111 
123 
154 
122 
123 
052 
123 
141 
141 
122 
123 
145 
101 
123 
162 
123 
123 
126 
123 
122 
145 
145 
145 
145 
141 
123 
122 
115 
162 



102 
123 
154 
111 
123 
052 
123 
160 
164 
111 
123 
167 
115 
123 
151 
123 
123 
103 
102 
111 
141 
141 
163 
141 
164 
123 
111 
113 
151 



026350 
140004 
026360 

000012 
026372 

000024 

000000 
000050 
177777 026372 

000000 



T29L0R 

T29WDF 

T291.0Q 

T29SSR 

T29WDE 

T29WLK 

T29WRT 

T29eOT 

T29DTA 

T29E0TI 

T29TM: 

T29HWN 

T29RNC 

f29AM3 

T290F7 

T29U00 

T29W0C 

T29VCK 

T29eA: 

T29WSS 

T29L0N 

T29C0P 

T29PBP 

T29TRL 

T29NEQ 

T29ft[)G 

T29RIB 

T29RRN 

TST29IDt 

I ♦ 



.ASCI/ 
.ASCIZ 
.ASCIZ 
.ASCI/ 
.ASCIZ 
,ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.EVEN 



RIB NOT SET AfTER READ REVERSE INTO BQ\ ' 
TSSR Not Correct APt«r IU«g«l flod* Bits S«t' 
IlUoal Mod« BIt». Fb;1#<* To S«t ILC 8 = 1 In XSTC 
WRITE TAPE MARK RETRr COMMAND Not Acc#pt«d' 
TSSR Not Correct Aft«p SPACE REVERf^E DATA Cofwnaod' 
• •••*TAPE IS WRITE -LOCKED AND WILL CAUSE ERRORS*****- 
TSSR Not Correct Aft«p WRITE Co«wnand' 
Tap« Not At BOT Aft«r REWIND Commmnd' 

Data Written To Tap* Not Equal To Data Read From Tap«' 
WRITE TAPE MARK RETRY DATA OVER EOT GAVE NO TAPE STATUS ALERT' 
TSSR Not Corract Aftar SPACE REVERSE Into BOT' 
Rewind (POSITION) Convnand Not Accaptad' 
RAM Error. Corract Data Pattern Not In 9»*n' 
TSSR Init. railed After WRITE TAPE MARK RETRY COMMAND' 
Drive 7 Select Failed To Set "OTL " In TSSR' 
TSSR Not Correct After WRITE TAPE MARK RETRY DATA Com-tand 

WRITE TAPE MARK RETRY DATA Cofwnand' 
VCK In Maaaaoe Buffer' 
WRITE TAPE MARK RETRY DATA Coomand' 
Commmnd Not Accepted (RAM Read)' 
led To Set RLL Bit In XSTO' 
Reading Long Record Failed To Set RLS Bit In XSTO' 
ReelAial Byte Count Incorrect After Short Record Read' 
Reading Long Record Failed To Give Tape Status Alert' 
Data WRITE TAPE MARK RETRY Fro* Tape Not Correct, After 
TSSR Incorrect After READ REVERSE Into Tope Kark' 
WRITE TAPE MARK RETRY At Flrat Record. Failed To Set RIB (XST3) 
T^f< (XSTO) Failed To Set After READ REVERSE Into Tope Mark' 
ASCIZ 'Write Tape Mark Retry' 



TSSR Not Correct After 
CVC Set. DIdn' 't Reaet 
TSBA Not Correct fiffr 
WRITE SUBSYSTEM MEMORY 
Reading Long Record Fa 



:>WB Bit Set 



SWB-l 



iROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
(WRITE SUBSYSTEM MEMORY COMMAND 



1 
t - 




T29RESTi 




SAVREG 




MOV 


•T29PACKET.RI 


MOV 


0140004. (Rl)» 


MOV 


#T29DATA,(Rl)» 


CLR 


(Rl)» 


MOV 


010. .(Rl)» 


MOV 


♦T29BFR.(Rl)* 


CLR 


(Rl)» 


MOV 


*20, .(Rl)» 


CLR 


(RD* 


MOV 


00, (Rl) 


MOV 


024. ,R2 


64$: MOV 


0177777. T29BFRCR2) 


TST 


-(R2) 


CMP 


R2,>0 


BNE 


64$ 


RTS 


PC 



iSAVE THE REGISTERS 

I START OF THE PACKET 

(WRITE SUBSYSTEM MEM. WITH ACK, CvC'l 

(ADDRESS OF CHARAISTICS DATA BLOCK 

(EXTENDED ADDRESS 

(SIZE or DATA BLOCK IN BYTES 

(ADDRESS OF MESSAGE BUFFER 

(LENGTH OF MESSAGE BUfTER 

(SELECT DRIVE ZERO (0) 

(NUMBER OF LOCATIOMS TO BE CLEARED 

(ALL ONES TO MESSAGE BUFFER 

(NEXT LOCATION 

(CHECK FOR END OF LOOP 

I KEEP GOING UNTIL DONE 

(RETURN 



T29RT2i 



D" 
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TtST 1: WRITE TAPE MARK R[:TRY 



SFQ 0107 



673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
686 
689 
690 
691 
692 



695 
694 
695 

696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 

712 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 



052270 
052274 

052300 
032304 
032310 
032512 
052516 
032320 
052524 
032526 
032350 
052532 
032332 
032556 
032342 
032346 
032352 
032354 
032360 
032562 
032362 
032362 



032364 
032564 
032364 
032572 
032576 
032402 



012701 
012721 
012721 
005021 
012721 
005021 
012701 
005021 
005011 
000207 



012701 
012721 
012721 
005021 
012711 
000207 



104401 



012737 
012700 
0047:'t7 

012737 



026460 
140006 
026500 

000006 

026500 



0264 70 
000000 
000000 

000000 



006554 002172 

041261 

016570 

000005 002210 



SAVRtG 




MOV 


0T29PK2.R1 


MOV 


0140006, (Rl)f 


MOV 


#T29eF2.CRl)* 


CLR 


CR1)» 


MOV 


06. .CR1)» 


CLR 


CR1)» 


MOV 


#T29BF2.R1 


CLR 


CRD* 


CLR 


(Rl) 


RTS 


PC 


T29RT3: 




SAVREG 




MOV 


0T29PK3.R1 


MOV 


*0.CR1)» 


MOV 


<K).(R1)» 


CLR 


CRD* 


MOV 


00. (Rl) 


RTS 


PC 


ENDTST 





(SAVE THE REGISTERS 

I START OK THE PACKET 

(WRITE SUBSYSTEM MEM. WITH ACK.CVCn 

(ADDRESS OF DATA BLOCK 

i EXTENDED ADDRESS 

tSlZE or DATA BLOCK IN BYTES 

iPOINT TO DATA SEL AREA 



(RETURN 

(SAVE THE REGISTERS 
(START Of THE PACKET 
(WRITE SUBSYSTEM MEM. WITH ACK . 
(ADDRESS OF DATA BLOCK 
; EXTENDED ADDRESS 
(SIZE OF DATA BLOCK IN BYTES 
(RETURN 



L 10036: 



.SBTTL TEST 2; SKIP TAPE MARKS 



TRAP 



CiETST 



THIS TEST VERIFIES PROPER OPERATION OF THE SKIP TAPE MARKS 
FORWARD AND SKIP TAPE MARKS REVERSE COMMANDS. PROPER OPERATION 
t^lOER CONTROL OF ALL COMBINATIONS OF THE ENABLE SKIP TAPE MARKS 
STOP (ESS) AND ENABLE TAPE MARKS STOP OFF BOT (ENB) BITS SPECIFIED 
BY THE WRITE CHARACTERISTICS COMMAND. THE TEST CONSISTS OF THE 
FOLLOWING SUBTESTS (FOR EACH SUBTEST, THE TAPE IS FIRST WRITTEN 
WITH AN APPROPRIATE SERIES OF DATA RECORDS AND/OR TAPE MARKS 
AND/OR DtXJBLE TAPE MARKS. 



THE TEST CONSISTS OF THE FOLLOWING 11 SUBTESTS 



t - 



BGNT5T 

MOV 
MOV 
JSR 
MOV 



OEPRTl.EPRTSW 
0TST50I0.R0 
PC.TSTSET'JP 
*5,L00PCNT 



T2:: 
(PRIMARY ERROR MESSAGE 
(ASCII MESSAGE TO IDENTIFY 
(DO INITIAL TEST SETUP 
(PERFORM 5 ITERATIONS 



TEST 



( ♦ 



( TEST 2, SUBTEST 1 



(VERIFIES THAT A SKIP TAPE MARKS FORWARD COMMAND WITH 

(A TAPE MARK COUNT OF 1 OPERATES OPERATES PROPERLY. THE TAPE 

(IS FIRST REWOUND. THEN WRITTEN WITH SEVERAL "FILES" ( 

(EACH FILE CONSISTS OF A NUMBER OF DATA RECORDS 

(FOLLOWED BY A TAPE MARK. THE FINAL FILE IS 

{TERMINATED BY A DOUBLE TAPE MARK. EACH DATA RECORD 
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TtST 2 1 SKIP TAPE MARKS 



SEQ 0108 



731 
732 
733 
734 
735 
736 
■^37 
75Q 
739 
740 
741 
742 
743 
744 
745 
746 

747 032410 

748 032410 
032410 
032410 

749 032412 

750 032416 

751 032422 

752 032426 

753 032432 

754 032440 

755 032444 

756 032446 
032446 
032452 
032454 
032460 
032462 
032466 
032470 
032474 

757 032476 

758 032502 

759 032504 

763 032510 

764 032512 
032512 
032514 
032516 
032520 

765 032522 

766 032522 

767 032530 
768 

769 
770 
771 

m 

7 73 
774 

775 032534 

776 032540 



10^402 
004737 
005037 
004737 
004737 
012737 
004737 
103426 

012727 
000000 
013727 
000000 
005567 
001375 
005367 
001567 
005537 
001356 
005237 
010001 

104455 
000511 
003646 
032114 

013737 
012704 



041302 

036704 

041374 

041436 

176750 036706 

016054 



000250 
002136 
177772 
177756 
036706 
002214 



002174 036550 
036530 



iCONTAINS A riLE NUMBER AND THE RECORD NUMBER WITHIN 
I THE FILE SO THAT TAPE POSITION CAN BE SUBSEQUENTLY 
I VERIFIED BY READING THE DATA. THE TAPE IS AGAIN 
iREWOUND AND A SERIES OF SKIP TAPE MARKS FORWARD 
COMMANDS ARE ISSUED AND THE RESULTS CTAPE STATUS ALERT 
TERMINATION. TMK-1 STATUS. TAPE POSITION VIA READ 
COMMAND) IS CHECKED. PRIOR TO ISSUANCE OF EACH SKIP 
COMMAND. A WRITE CHARACTERISTICS COMMAND IS ISSUED TO 
SET UP THE ESS AND ENB CONTROL BITS. ALL 
(COMBINATIONS OF ESS AND ENB ARE USED COO.Ol.lO. 
11) J OPERATION SHOULD BE THE SAME IN EACH CASE FOR 
THIS SUBTEST. 



T3OL00P: 



10$: 



BGNSUB 



JSR 
CLR 
JSR 
JSR 
MOV 
JSR 
BCS 
DELAY 



PC.T30REST 

T30FCN 

PC,T50RT2 

PC,T50RT3 

♦65000. .7 30DLY 

PC.SOFINIT 

20 i 

250 



;>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T2.1: 

TRAP C$BSUB 
iSET COMMAND PACKET 
iCLEAR FILE COUNTER 
I SET UP OTHER COMMAND PACKET 
I SET UT OTHER COMMAND PACKET 
;SET UP DELAY COUNTER 
;D0 INITIALIZE ON CONTROLLER 
iBR IF INIT WAS OK 
J DELAY ROUTINE CALL 



20$: 







MOV 


*250,CPC)* 






.WORD 









MOV 


L$DLY.(PC)* 






.WORD 









DEC 


-6(PC) 






BNE 


. -4 






DEC 


-22(PC) 






BNE 


. -20 


DEC 


T30DLY 


I BUMP COUNTER 




BNE 


10$ 


iBR. IF MORE COUNTING TO DO 




INC 


FATFLG 


(ERROR COUNT 




MOV 


RO.Rl 


I CONTENTS or TSSR REGISTER 




ERROF 


ERRNO.SFIERR.SFIMSG 


tFATAL ERROR TSSR WAS NOT OK 








TRAP 


C$ERDF 






.WORD 


201 






.WORD 


SFIERR 






.WORD 


SFIMSG 



MOV UNITN.T30DSW 
MOV *T50PACKET.R4 



(SET UP UNIT NUMBER 

(SUBROUTINE NEEDS PACKET ADDRESS 



( 

(ISSUE WRITE CHARACTERISTICS COMMAND 
I 



004737 010742 
103407 



JSR 
BCS 



PC.WRTCHR 
23$ 



(ISSUE WRITE CHARACTERISTICS 
(BR. IF COMMAND ISSUED OK 



TfST 1 
rtST 2 

111 

781 
782 



783 

784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
799 



800 

601 
802 
803 
604 
805 
606 
807 
808 
809 
810 
811 
612 
815 
817 



818 

819 
820 
821 
822 
627 

8:^4 

625 
620 
827 



HARDWARE TF.ST 1-8 TEST 
SKIP TAPE MARKS 

032542 005237 002214 

032546 010001 

032550 

032550 104456 

032552 000312 

032554 005052 

032556 012114 

032560 

032560 104406 
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032562 
032566 
032570 
032572 
032576 
032602 
032602 
032604 
032606 
032610 
032612 
032612 



032614 
032620 
032622 
032626 
032630 
032632 
032636 
032636 
032640 
032642 
032644 
032646 
032646 
032650 
032656 
032662 
03267C 



004737 011074 

103411 

010004 

016501 000002 

005237 002214 

104456 
000313 
040270 
012126 

104406 



013701 
010102 
052702 
020102 
001406 
005237 

104456 
000314 
040071 
015554 

104406 

012737 
012703 
013737 
012737 



036560 
000002 

002214 



000001 
OOOOOl 
003116 
003720 



23$: 



INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO , WRTMSG , SF IMSG 



CKLOOP 



J ERROR COUNT 




iSAVE CONTENTS OF TSSR 




jWRITE CHARACTERISTISC FAILED 




TRAP 


CiERHRD 


.WORD 


202 


.WORD 


WRTMSG 


.WORD 


SriMSG 



J LOOP IF SELECTED 



TRAP 



ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 

*«^4>«jf44i**4i4i*44i*****«4i«*4i*4i4i*******4' ********************* 

iCALL TAPE REWIND COMMAND 
J BR, IF NO PROBLEM 
;GET PACKET ADDRESS 
iGET STATUS REGISTER 
I ERROR COUNT 
I REWIND NOT ACCEPTED 



JSR 


PC. REWIND 


BCS 


30$ 


MOV 


R0.R4 


MOV 


TSSR(R5),R1 


INC 


FATFLG 



ERRHRD ERRNO. T30RWN,PKTSSR 



30$: 



CKLOOP 



(LOOP IF SELECTED 



TRAP 



;**4i*«*4i***4i****«>«*«**«*«*«4>****«i«***************A******A« 



t 



MOV 


T306FR*6,R1 


MOV 


R1.R2 


BIS 


*6IT1.R2 


CMP 


R1.R2 


BEQ 


40$ 


INC 


FATFLG 



ERRHRD ERRNO , T30B0T , EXPREC 



40$: 

036704 

64$: 
036652 65$: 
036656 



CKLOOP 

MOV 
MOV 
MOV 
MOV 



C$CLP1 



TRAP 


C$ERHRD 


.WORD 


203 


.WORD 


T30RWN 


,Wt:)RO 


PKTSSR 



C$CLP1 



GET EXTENDED STATUS REGISTER ZERO CXSTO) FROM MESSAGE BUFFER 

*****A*4ii1i*4***«**4i*********44l + + ^***«i«**4>4>««« ****** **«*4ijf>ti 

(PICK UP XSTO 

I SET UP EXPECTED 

J SET BOT BIT IN EXPECTED 

;DOES EXP - REC'D 

iBR. IF EQUAL (OK) 

J ERROR COUNT 
(TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
iLOOP IF SELECTED 

TRAP 
I SET "FILE" COUNTER AT I DECIMAL 
I ONE RECORD PER "FILE" 
tSET UP PACKETS' S WRITE BUFFER 
I SET RECORD SIZE AT 2000 BYTES 



*1.,T30FCN 
*1.R3 

FREE.T30WB 
02000. ,T30SZ 



C$ERHR0 
204 

T30B0T 
EXPREC 

C$CLP1 



IwRlTE DATA.ACK.CVC-1 COMMAND 



SEQ 0109 



TFSr 1 - HARDWARE TF.ST 1-8 TtST MACRO M1200 
rtST 2: SKIP TAPE MARKS 
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SEQ 0110 



828 
829 
830 
851 
852 
853 
834 
835 
856 
837 
838 
859 
840 
641 
842 
643 
847 



848 

849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
662 
863 
864 
865 
866 
867 
871 



872 

873 
874 
875 
876 
877 
878 
879 
980 



032676 
032704 
032710 
032714 
032716 
032720 
032722 
032726 
032732 
032736 
032742 
032746 
032750 
032752 
032756 
032756 
032760 
02^2762 
032764 
032766 
032766 
032770 
032772 
032776 



033OOO 
033006 
033012 
033016 
033022 
033026 
033032 
033054 
033036 
033042 
033042 
033044 
033046 
033050 
033052 
035052 
033054 
033060 
033066 



012737 
012704 
013702 
000302 
010301 
060201 
010177 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
000515 
037220 
012126 

104406 
005203 
020327 
001331 



012757 
012704 
010465 
004757 
016501 
012702 
020102 
001406 
005237 

104456 
000316 

040412 
012126 

104406 
005237 
025727 
001273 



002214 



000021 



141011 
036650 
000000 
016330 
000002 
000200 



002214 



•^^>K4'4>4>«***4i4> + <f4[**4L*'t>*4i«*«***4i*4i4i«j|>4>*4>«*'4i*i4>****4>«*««4t****<f 



140005 036650 

036650 

036704 



150170 
OOOOOO 
016330 
000002 
000200 



MOV 


#140005. T30PK3 


MOV 


<^T30PK3.R4 


MOV 


T30FCN,R2 


SWAB 


R2 


MOV 


R3.R1 


ADD 


R2.R1 


MOV 


Rl.aKREE 


MOV 


R4.rSDB(R5) 


JSR 


PC.UAITF 


MOV 


rSSRCR5),Rl 


MOV 


*SSR,R2 


CMP 


R1.R2 


DEQ 


701 


INC 


FATFLG 



70$ 



ERRHRD ERRN0.T30UDD.PKTSSR 



CKLOOP 



INC 


R3 


CMP 


R3.#21 


BNE 


651 



(WRITE 0ATA.ACK.CVC=1 COMMAND 

(SET ijP R4 WITH PACKET ADDRESS 

;GET FILE COUNTER 

jMOVE TO UPPER BYTE 

jGET RECORD COUNTER 

(FILE COLWTER IN UPPER, RECORD i> LOW 

(MOV TO OUT PUT BUFFER 

(ISSUE COMMAND 

(WAIT FOR 5SR TO SET 

(GET TSSR CONTENTS 

(SET UP EXPECTED 

(ARE THEY EQUAL 

(BR, IF OK 

J ERROR COUNT 

(TSSR INCORRECT AFTER WRITE DATA 

TRAP C$ERHRD 
. WORD 205 
.WORD T30WDD 
.WORD PKTSSR 

(LOOP IF SELECTED 

TRAP CJCLPl 

(COUNT THE RECORD COlWTER DOWN 

jAl 20 YET 

(BR. IF NOT AT 20 RECORDS WRITTEN 



WRITE TAPE MARK.ACK.CVC-1 COtlMANO 

*4>4t*4i4i4>**«**«iBi4t******«*««*«*****««***4t**«* ********* ******* 



036650 



MOV 


*141011.T30PK3 


MOV 


*T30PK3.R4 


MOV 


R4.TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5).R1 


MOV 


#5SR.R2 


CMP 


R1.R2 


BEQ 


160$ 


INC 


FATFLG 



160 f: 



ERRHRD ERRNO , T30WDC . PKTSSR 



CKLOOP 



056704 




INC 


T30FCN 


036704 


000006 


CMP 


T30FCN,#6 






BNE 


64 » 



(WRITE TAPE MARK.ACK.CVC-l COMMAND 

(SET UP R4 WITH PACKET ADDRESS 

(ISSUE COMMAND 

(WAIT FOR SSR TO SET 

(PICK UP TSSR 

(SET UP EXPECTED CSSR ONLY) 

(WAS STATUS GOOD 

(BR. IF TERMINATION WAS GOOD 
(ERROR COUNT 

(TSSR NOT CORRECT AFTER WRT TAPE M. 

TRAP CiERHRD 
.WORD 206 
.WORD T 30 woe 
.WORD PKTSSR 

(LOOP IF SELECTED 

TRAP CJCLPl 

(COIWT THE "FILE" COUNTER DOWN 

(WRITE 5 FILE TO TAPE 

(BR, IF NOT AT 5 FILES WRITTEN 



j******«**«********4l**««««*4i«««*4,«*^«*4,^4,*^4,*4,4iA4,44,4^4,44i4,* 
( 

(WRITE TAPE MARK.ACK.CVC-l COMMAND 



Te^T 1 HARDWARt. rr.^^T L-8 TtST 
TtST 2: SKIP TAPt MARKS 



MACRO Ml^OO ^0 MAR -84 08:44 PAGF. ?5 • 1 7 



881 
88.? 

883 035070 

884 033076 

885 033102 

886 033106 

887 053112 
688 033116 

889 033122 

890 033124 

891 033126 

895 033132 
033132 
033134 
033136 
033140 

896 033142 
033142 

89 7 
898 
899 
900 
901 
902 
903 

904 033144 

905 033150 

906 033152 

907 033154 

908 033160 

912 033164 
033164 
033166 
033170 
033172 

913 033174 
033174 

914 
915 
916 
917 
918 
919 
920 

921 033176 

922 033202 

923 033204 

924 033210 

925 053212 

926 033214 

930 033220 
033220 
035222 
033224 
033226 

931 033230 
033230 



01273/ 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
000317 
040412 
012126 

104406 



004757 
103411 
010004 
016501 
005237 

104456 
000320 
040270 
012126 

104406 



1410U 
036650 
000000 
016330 
000002 
000200 



002214 



011074 



000002 
002214 



013701 056560 

010102 

052702 000002 

020102 

001406 

005237 002214 

104456 
000321 
040071 
015554 

104406 



;*«*A4i*4'****>*4'4>4>4>*4i***4>A*«*4i4i**4[**j^**'t>****«i4>4t*«4i«4i*4>««<»«*» 



036o50 



MOV 


#141011, T50PK3 


MOV 


«T50PK5,R4 


MOV 


R4.TSDB(R5) 


J5R 


PC.WAITF 


MOV 


TSSRCR5).R1 


MOV 


#SSR,R2 


CMP 


R1.R2 


BEQ 


165$ 


INC 


KATFLG 



165$ 



ERRHRD ERRN0,T30WDC.PI<TSSR 



CKLOOP 



I WRITE TAPE MARK.ACK.CVC-1 COMMAND 

(SET UP R4 WITH PACKET ADDRESS 

J ISSUE COMMAND 

iWAIT FOR SSR TO SET 

;PICK UP TSSR 

jSET l^ EXPECTED (SSR ONLY) 

iWAS STATUS GOOD 

jBR. ir TERMINATION WAS GOOD 

(ERROR COUfn 
iTSSR NOT CORRECT AFTER WRT TAPE M. 

TRAP CiERHRD 



;LOOP IF SELECTED 



.WORD 
.WORD 
.WORO 

TRAP 



ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 

(CALL TAPE REWIND COMMAND 
;BR. IF NO PROBLEM 
I GET PACKET ADDRESS 
:GET STATUS REGISTER 
; ERROR COUNT 
jREWIND NOT ACCEPTED 



JSR 


PC. REWIND 


BCS 


170* 


MOV 


R0.R4 


MOV 


TSSR(R5),R1 


INC 


FATFLG 



ERR^*RD ERRN0,T30RWN.PKTSSR 



170$: CKLOOP 



.LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



GET EXTENDED STATUS REGISTER ZERO CXSTO) FROM MESSAGE BliFFER 

(PICK UP XSTO 

tSET UP EXPECTED 

tSET BOT BIT IN EXPECTED 

(DOES EXP • REC'D 

;BR. IF EQUAL (OK) 

I ERROR COUNT 
;TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
;LOOP IF SELECTED 

TRAP 



MOV 


T30BFR»6.R1 


MOV 


R1.R2 


BIS 


*6IT1.R2 


CMP 


R1.R2 


BEQ 


180$ 


INC 


FATFLG 



ERRHRD ERRNO , T30B0T . EXPREC 



207 

T30W0C 

PKTSSR 

C$CLP1 



c$erhrd 
2oe 

T50RWN 
PKTSSR 

CJCLPl 



180$: CKLOOP 



c»erhrd 

209 

T30eoT 

EXPRFC 

C$CLP1 



SEQ OIU 



TtSr I HARDwARfc. Tf.Si 18 TtST HACRO M1200 .'_>0 MAR-84 09:44 PAGt c?S 18 
TtST 2: SKIP TAPE MARKS 



Sf.Q Oil? 



952 

934 
9J5 
956 
95'; 
950 
-»39 
940 
941 
942 
943 
944 
945 
949 
950 



951 

9j2 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 



969 
970 
971 
97? 
973 
974 
978 



033232 
033236 
033r«4 
033;'50 



033254 
035260 
033262 
033266 
033270 
033270 
033272 
033274 
053276 
033300 
03S300 



033302 
033310 
033316 
033322 
033326 
Or>3334 
033540 
033544 
033350 
033352 
033352 
033356 
033360 
035564 
033366 
033372 
055574 
035400 
035402 
055406 
033410 
035414 
055416 
055420 
053424 
033424 
035426 
033430 



01270^ 
015.^7 
011337 
012704 



004 737 
103407 
005237 
010001 

104456 
000322 
005052 
012114 

104406 



012737 
012757 
01270^ 
010465 
012757 
004737 
016501 
052701 
001017 

012727 
000000 
013727 
000000 
005567 
001375 
005367 
001367 
005337 
001352 
012702 
020102 
001406 
005237 

104456 
000323 
037144 



0:S6666 
002174 
036546 
036530 



010742 
00^214 



141010 
000001 
036650 
OOOOOO 
176750 
016330 
000002 
000200 



000250 
002116 
177772 
177756 
056706 
000200 

002214 



036550 



MOV flT30IMV.R3 

MOV UNITN,T300SW 

182$: MOV (R3).T30ETM 

MOV #T30PACKET,R4 



iSET UP POINTER TO COMMAND TABLE 

I SET VP UNIT NUMBER 

iGHT NEXT COMMAND 

; SUBROUTINE NEEDS PACKET ADDRESS 



ISSUE WRITE CHARACTERISTICS COMMAND 



188* 



JSR PC.WRTCHR 

BCS 188* 

INC EATFLG 

MOV RO.Rl 

ERRHRD ERRNO.WRTMSG.SFTMSG 



CKLOOP 



;ISSUE. WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 

; ERROR COUNT 
:SAVE CONTENTS OF TSSR 
iWRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



;LOOP '^ SELECTED 



TRAP 



CJERHRD 
210 

WRTMSG 
SFIMSG 

C$CLP1 



SKIP TAPE MARK.ACK.CVC-l COMMAND 



036650 
036652 



036706 



189$ 
190$ 



MOV 0141010, T50PK3 

MOV 01.T30RB 

MOV *T30PK5,R4 

MOV R4.TS0B(R5) 

MOV *65000. ,T30DLY 

JSR PC.WAITF 

MOV TSSRCR5).R1 

BIT *SSR.R1 

BNE 191$ 

DELAY 250 



iSKIP TAPE MARK,ACK.CVC-1 COMMAND 

(SET UP NUMBER TO SKIP 

J SET UP R4 WITH PACKET ADDRESS 

J ISSUE COMMAND 

;SET UP DELAY COUNTER 

;WAIT FOR SSR TO SET 

;PICK UP TSSR 

»IS SSR SET YET 

tBR. IF SSR IS SET 

;CALL DELAY ROUTINE 



MOV 


0250. CPC). 


.WORD 





MOV 


LJDLY.CPC)* 


.WORD 





DEC 


-6(PC) 


BNE 


. 4 


DEC 


•22( PC) 


BNE 


.-20 



191* 



DEC 


T300LY 


BNE 


190» 


MOV 


«SSP.R2 


CMF 


R1.R2 


BEQ 


1921 


INC 


FATFLG 



ERRHRD ERRNO , T30SKM , PKTSSR 



iBUMP DELAY ROUTINE 

I BR. IF MORE DELAY TO GO 

I SET UP EXPECTED CSSR ONLY) 

I WAS STATUS GOOD 

jBR, IF TERMINATION WAS GOOD 
(ERROR COUNT 

J TSSR NOT CORRECT AFTER SKIP TAPE M. 

TRAP CiERHRD 
.WORD 211 
.WORD T30SKM 



Tf-ST 1 HAROWARe. TfSf 1 -tf TtST 
TEST 2: SKIP TAPR MAF?KS 



hACRU M1200 ;i*0 MAR -84 08:44 PAGE c?5 19 



9'^ 

980 
981 
98i^ 
983 
984 
985 
986 
98 7 
988 
989 
990 
991 
99? 
996 



997 

993 
999 
1000 
1001 
1002 
1003 
10O4 
3 005 
1006 
1007 
1000 
1009 
1010 

lOir 

1012 
1013 
1C14 
1015 
1016 
1017 
1021 



1022 

1023 
1024 
1025 
1026 
1027 



053432 
033434 
033434 



012126 
104406 



033436 
033442 
033444 
033450 
033452 
033454 
033460 
033460 
033462 
033464 
033466 
033470 
033470 
0334 72 
033476 
033502 



013701 
010102 
052702 
020102 
001406 
005237 

104456 
000324 
040544 
015554 

104406 
012700 
004 737 
013737 



036560 
100000 

002214 



177777 
017502 
003116 



033510 
033516 
033522 
033530 
033534 
0^3540 
0335.M 
033550 
033552 
033554 
033560 
033560 
033562 
033564 
033561. 
033570 
033570 
033572 
033576 
033602 
033604 
033606 
033612 
033612 



012737 
012704 
012737 
010465 
004737 
016501 
012702 
020102 
0014"^ 
OC'S^Sr 

104456 
000325 

037443 
012126 

104406 
017701 
012702 
020102 
001006 
005237 

104456 



140001 
056650 
003720 
000000 
016330 
000002 
000200 



002214 



147320 
177777 



002214 



192$: 



CKLOOP 



jl.OOP If SFI.FCTF.D 







SEQ 0113 


.WORO 


PKTSjP 




TRAP 


C5CLP1 





GET EXTENDED STATUS REGISTER ZERO CXSTO) FROM MESSAGE BUFFER 

«4i**4i*4i*****4L4i******************A***«******************** 



MOV 


r30BrR*6.Rl 


MOV 


R1.R2 


BIS 


*eiT15,R2 


CMP 


Ri.H2 


BEQ 


195i 


INC 


rATFLG 



ERRHRD ERRNO . T30TMK , EXPREC 



;PICK UP XSTO 

jSET UP EXPECTED 

I SET TMK BIT IN EXPECTED 

;DOES EXP • REC'D 

;BR, IE EQUAL (OK) 

J ERROR COUNT 
jTMK NOT SET AFTER WRT TAPE MARK 



195$ 



036652 



CKLOOP 

MOV 
JSR 
MOV 



#177777. RO 
PC.FILLMEM 
FREE.T30R0 



TRAP 


CiERHRD 


.WORD 


212 


.WORD 


T30TMK 


.WORD 


EXPRHC 


;LOOP ./ SELECT'".D 




TRAP 


C$CLP1 


iVAL'^fi TL' WRITTEN TO MTMORT 




iFILL MEH WITH ALL ONES 




(STARTING READ BL*FFER ADDRESS 





;*«*****««** ******4i***,***v****L**4i****A*4i*« A* A«**4«*4iA*4**4i 

READ FORWARD, ACK.CVC-1 COMMAND 

.>***«4******4i4L4i**************i**4ijti4>4i«4(4i4i«******4,*****«**** 



0S6650 
036656 



MOV 


«140001.T30PK3 


MOV 


*T30PK3.R4 


MOV 


*2000. .T305Z 


MOV 


R4.TSDe(R5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5),'" 


MOV 


#SSR.R2 


CMP 


R1.R2 


BEQ 


200$ 


INC 


FATFLG 



200$ 



ERRHRD ERRNO . T30RDF . PKTSSR 



CKLOOP 



MOV 


aFREE.Rl 


MOV 


0177777, R2 


C^tP 


R1.R2 


BNE 


220$ 


INC 


FATFLG 



ERRHRD ERRNO . T30DTR . EXPREC 



jREAD FORWARD. ACK.CVC-1 COMMAND 
:SET UP R4 WITH PACKET ADDRESS 
J SET UP RECORD SIZE IN PACKET 
(ISSUE COMMAND 
iWAIT FOR SSR TO SET 
iGET TSSR CONTENTS 
;SET UP EXPECTED 
(ARE THEV EQUA' 
jBR. IF OK 

i ERROR COUNT 
:TSSR INCORRECT AFTER WRITE DATA 

TRAP 

.WORD 

.WORD 

.WORD 
(LOOP IF SELECTED 

TRAP 

jFIRST LOC IN READ BUFFER 
J EXPECTED IF NO DATA TRANS. 
[DIt? ANY DATA GET TRANSFERRED 
jBR, IF NO DATA TRANS (GOOD) 

: ERROR COUNT 
(DATA TRANSri-nRED ON READ TAPE MARK 

TRAP CJERHRD 



CiERHRD 

213 

T30RDF 

PKTSSR 

C$CLP1 



-T 



Tt:ST 1 HARDWARF fFST 1-8 TtST 
TEST 2; ^KIP TAPE MARKS 



MACRO M1200 ^0- MAR -84 08:44 PAGE ■^b dO 





033614 


000326 






033616 


041120 






033620 


015554 




1032 


033622 








033622 


104406 




1037, 


035624 


012702 


OOlOOl 


1054 


033630 


017701 


147262 


103'j 


033634 


020201 




1036 


033636 


001406 




103 V 


033640 


005237 


002214 


1041 


033644 








033644 


104456 






033646 


00032/ 






033650 


037272 






033652 


015554 




104? 


035654 








033654 


104406 




104 3 








1044 








1045 








1046 








104 7 








1048 








1049 








1050 


033656 


004/37 


011074 


lObl 


033662 


103411 




1052 


033664 


010004 




1053 


033666 


016501 


000002 


1054 


033672 


005237 


002214 


1058 


033676 








033676 


104456 






033700 


000330 






033702 


040270 






033704 


012126 




1059 


033706 








033706 


104406 




1060 








1061 








1062 








1063 








1064 








1065 








1066 








1067 


033710 


013701 


036560 


1068 


033714 


010102 




1069 


033716 


052702 


000002 


10/0 


033722 


020102 




loa 


033/24 


001406 




10/2 


033726 


005237 


002214 


1076 


033732 








033732 


104456 






033734 


000331 






033736 


040C71 






033740 


015554 




1077 


033742 








033742 


104406 




1078 


033744 


005723 





220$ 



CKLOOP 



MOV 


fll001,R2 


MOV 


S>FRFE,R1 


CMP 


R2.R1 


BEQ 


228$ 


INC 


FATKLG 



223$ 



ERRHRD ERRNO . T30PTB , EXPREC 



CKLOOP 



.WORO 214 

.WORD T30DrM 

.WORD EXPREC 
:LO0P IF r.ELECTED 

TRAP CJCLPl 

iSe: up record number expected (file 2) 
:glt 7nf0 from buffer 

;ARt lh:=Y EQUAL 
J BR. IF LQUAL COK) 

a.>^R0R COUNT 
jRECORD POGITTON WAS NOT CORRECT 

TRAP CSERHRD 



;LOOP IF SELECTED 



.WORD 
.WORD 
.WORD 

iPAP 



ISSlt A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 

;CALL TAPE REWIND COMMAND 
;BR, IK NO PROOLEM 
;SAVE PACKET ADDRESS 
jGET TSSR STATUS 

J ERROR COUNT 
: REWIND NOT ACCEPTED 



JSR 


PC. REWIND 


BCS 


230$ 


MOV 


R0,R4 


MOV 


TSSR(R5).R1 


INC 


FATFLG 



ERRHRD ERRNO, T30RWN,PKTSSR 



230$: CKLOOP 



;LOOP IF SELECTED 



TRAP 



GET EXTENDED STATUS REGISTER ZERO CXSTO) FROM MESSAGE BUFFER 

;PICK UP XSTO 

iSET UP EXPECTED 

(SET POT BIT IN EXPECTED 

jDOES EXP - REC'D 

(BR, IF EQUAL COK) 

J ERROR COL^T 
;TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
jLOOP IF SELECTED 

TRAP 
jPOINT TO NEXT POSITION 



MOV 


T30BFR*6.R1 


MOV 


R1,R2 


BIS 


*eiTl,R2 


CMP 


R1.R2 


BEQ 


240$ 


INC 


FATFLG 



240$ 



ERRHRD ERRNO , T30B0T , EXPREC 

CKLOOP 

TST (R3)* 



215 

T30PTB 

EXPREC 

C$CLP1 



TRAP 


C$ERHRD 


.WORD 


216 


.WORD 


T30RWN 


.WORD 


PKTSSR 



C$CLP1 



C$ERHRD 
217 
T50B0T 
EXPREC 

CJCLPl 



SEQ 0114 



TF.ST 1 HARDWARE-: TF.ST 1-8 TtST MACRU M1200 'i^O MAR-84 08:44 PAGE a^-ei 
TtST 2: SKIP TAPt MARKS 



SEQ 0115 



1079 
1030 
1081 
108a 
1085 

1084 



1085 
1086 
108 7 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 



1103 
1^04 

1105 
1106 
1107 
1108 
1109 
1110 



1111 
1112 
1113 
1117 
1116 



111.9 
1120 
1121 



033746 
033750 
055754 
033756 
033762 
033762 
033764 
033764 
033764 
033766 
033774 
033776 
034002 



034002 
034002 
034002 
034004 
034010 
054014 
034020 
054024 
034032 
034036 
034040 
034040 
034044 
054046 
034052 
034054 
054060 
034062 
054066 
054070 
034074 
054076 
054102 
034104 
054104 
034106 
034110 
054112 
034114 
034114 
034122 



011301 
020127 
001402 
0001i7 

104406 



104403 
023727 
105402 
004737 



104402 
004737 
005037 
004737 
004757 
012757 
004737 
103426 

012727 
OOOOOO 
013727 
OOOOOO 
005567 
001375 
005367 
001367 
005537 
001356 
005237 
010001 

104455 
000332 
003646 

012114 

013/37 
012704 



17777/ 
033244 



041302 
036704 
041374 
041456 
176750 
016054 



000250 
002116 
177772 
177756 
036706 
00c2l4 



330$ 



MOV 


(R3:).R1 


CMP 


Rl.. 7177777 


BFQ 


330$ 


JMP 


182$ 


CKL.OOP 





002214 000017 
017262 



r^NDSUB 



CMP 
Bl-0 
JSR 



999$ 



FATFLG.^AlS 
999 i 
PC.CKDROP 



GET NEXT COMMAND ETC. 
END OF TABLE MARKtR 
BR, IF AT END OF TABLE 
JUMP TO MORE COMMANDS TU 00 
I OOP IF SELECTED 

TRAP ClCLPl 
;<<<<<<<<<<< END SUBTEST >w>>>>>>>> 

L 10044: 

TRAP C$ESUB 
IS ERROR COUNT AT 25 
on, IE LESS THAN 25 
TRY TO DROP THE UNIT 



TEST 2. SUBTEST 2 

VERIFIES THAT SKIP TAPE MARKS COMMANDS UITH A TAPE 
MARK COUNT GREATER THAN 1 OPERATE PROPERLY. COUNTS 
OF 2.3.6,64.256. AND 512 ARE TESTED. THE 
TESTING SEQUENCE IS SIMILAR TO THAT USED IN SUBTEST 1. 



BGNSLt3 



,>>>>>>>>>>>> BEGIN SUBTEST ^>>>>>^^>->>> 



T2, 



TRAP 



036706 



10$ 



JSR 


PC.T30REST 


CLR 


T30FCN 


JSR 


PC»T30RT2 


JSR 


PC.T30RT3 


MOV 


>65000. ,T30DLY 


JSR 


PC.SOFINIT 


BCS 


20$ 


DELAY 


250 



C$BSU6 



DEC 
BNE 
INC 
MOV 
ERRDF 



T30DLY 

lOv 

FATFLG 

RO.Rl 

ERRNO.SFIERR.SFIMSG 



SET COMMAND PACKET 

CLEAR FILE COUNTER 

SET UP OTHER COMMAND PACKET 

SET UP OTHER COMMAND PACKET 

SET UP DELAY COUNTER 

DO INITIALIZE ON CONTROLLER 

BR IF INXT WAS OK 

DELAY ROUTINE CALL 

MOV 
.WORD 
MOV 
.WORD 
DEC 
BNE 
DEC 
BNE 
;BUMP COUNTER 
jBR, IF MORE COUNTING TO DO 

; ERROR COUN I 
i CONTENTS OF TSSR REGISTER 
(FATAL ERROR TSSR 



«250.CPC)» 

O 

L$DLY.(PC)* 



-6CPC) 

. 4 

22(PC) 
,-20 



002174 
036530 



036550 



20$ 



WAS NOT OK 




TRAP 


C$EROF 


.WORD 


218 


.WORD 


SFIERR 


.WORD 


SFIMSG 



MOV 
MOV 



UNITN,T50DSW 
^>T30PACKET.R4 



;SET UP UNIT NLfMBER 

i SUBROUTINE NEEDS PACKET ADDRESS 



Tt-:ST 1 HARDWARE TKST 1-8 TtST MACRO M1?00 :-?0-MAR-H4 08j44 PAGF. i?5c^2 
TEST 2: SKIP TAPt MARKS 



11?? 
11?3 
11^4 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1135 
1156 



1137 

1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
US3 



1154 

1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1171 



1172 



034126 
0^4132 
03^134 
034140 
034142 
034142 
034144 
034146 
034150 
034152 
034152 



004737 
103407 
005237 
010001 

104456 
000333 
005052 
012114 

104406 



034154 
034160 
034162 
034164 
034170 
034174 
034174 
054176 
034200 
034202 
034204 
034204 



004737 
105411 
010004 
016501 
005237 

104456 
000354 
040270 
012126 

10440^ 



054206 
034212 
054214 
054220 
054222 
054224 
034230 
034230 
054252 
034254 
034236 
034240 
034240 



015701 
010102 
052702 
020102 
001406 
005237 

104456 
000335 

040071 
015554 

104406 



010742 
002214 



011074 



000002 
002214 



036560 
000002 

002214 



ISSUc WRITF CHARACTERISTICS COMMAND 



23$ 



JS'^ PC.WRTCHR 

BCS 23$ 

INC FATFl.G 

MOV RO.Rl 

fcRRHRP ERRNO . URTMSG , SFIMSG 



CKLOOP 



(ISSUE WRITE CHARACTERISriCS 
jBR, If COMMAND ISSUED OK 

it-RROR COUNT 
iSAVE CONTENTS OF TSSR 
tWRITE CHARACTERISIXSC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



iLOOP If SELECTED 



TRAP 



ISSUE. A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 



[CALL TAPE REWIND COMMAND 
BR. IF NO PROBLEM 
GET PACKET ADDRESS 
GET STATUS REGISTER 
; ERROR COUNT 

J REWIND NOT ACCEPTED 



JSR 


PC. REWIND 


BCS 


30$ 


MOV 


R0.R4 


MOV 


TSSRCR5).R1 


INC 


FATFLG 



30$ 



ERRHRD ERRNO. T30RWN.PKTSSR 



CKLOOP 



jLOOP IF SELECTED 



TRAP 



4*4t4A*444***4i4>4L4L**444k**4******4*44**4>4*44>******4>4**4***** 

GET EXTENDED STATUS REGISTER ZERO CXSTO) FROM MESSAGE BUFFER 

«4i*4> + *4i ******* «******««4L***4i4>*4>A««44i4t«*«*«44X*4*«***** + 4>4 

jPICK UP XSTO 

(SET UP EXPECTED 

(SET BOT BIT IN EXPECTED 

(DOES EXP - REC'D 

iBR. IF EQUAL (OK) 

(ERROR COUNT 
(TAPE NOT AT BOT AFTER REWIND 

TRAP 

■ WORD 

■ WURO 
.WORD 

40$ J lKLUUP (LOOP IF SELECTED 

TRAP 



MOV 


T30BFRf6.Rl 


MOV 


R1.R2 


BIS 


*eiTl.R2 


CMP 


R1,R2 


BEQ 


40$ 


INC 


FATFLG 



ERRHRD ERRNO. T30B0T , EXPREC 



C$ERHRD 
219 

WRTHSG 
SFTMSG 

CSCLPl 



TRAP 


C$ERHRO 


.WORD 


220 


.WORD 


T30RWN 


.WORD 


PKTSSR 



C$CLP1 



CJLRHRD 
221 
r30U0T 
i XPRtC 

C$CLP1 



SEQ 0116 



N^i 



TeST 1 HARDWARE^ TFST 1-8 TEST MACRO Ml^OO cfO-MAR-a4 0S:4n PAGE 25 23 
TtST 2: SKIP TAPE MARKS 



StQ 0U7 



1173 
1174 
1175 
1176 
1177 
1176 
1179 
1180 
1181 
1182 
1183 
Me4 
:..185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1201 



1202 

1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1225 



1226 



034242 
034250 
034254 
034262 



034270 
034276 
034302 
034306 
034310 
034312 
034314 
034320 
034324 
034330 
034334 
034340 
034342 
034344 
034350 
034350 
034352 
034354 
054356 
034360 
034360 
034362 
034364 
034370 



034372 
034400 
034404 
034410 
034414 
034420 
054424 
034426 
034430 
034434 
034434 
034436 
034440 
034442 
034444 



01^737 
012703 
01373? 
012737 



012737 
012704 
013702 
000302 
010301 
060201 
010177 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
000336 
037220 
012126 

104406 
005203 
020327 
001331 



012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
000337 
040412 
012126 



000001 036704 
000001 

003116 036652 

000024 056656 



002214 



000021 



MOV in. , r3orcN 

64$: MOV i>] .R3 

65$: MOV FHLt,T30WB 

MOV V;20. .T30SZ 



;SE:T 'TlLe:" COUNTt.R AT 1 DECIMAL 

jONL REXnRD PER "FTl F" 

iSET UP PACKETS' S WRITE BUFf ER 

:SET RECORD SIZE AI 2000 BYTES 



WRITE DATA,ACK.CVC-1 COMMAND 

**********************♦ + ♦*♦♦*♦ + t + * + ********4-.* »♦*♦♦♦*♦♦** + 



140005 036650 

036650 

036704 



146576 
000000 
016330 
000002 
000200 



MOV 


<n40005,T30PK3 


MOV 


#T30PK3,R4 


MOV 


T30FCN.R2 


SWAB 


H2 


MOV 


R3,R1 


ADD 


R2.R1 


MOV 


Rl.OFREE 


MOV 


R4,1S0BCR5) 


J5R 


PC.WAITF 


MOV 


T3oRCR5).Rl 


MOV 


0SSR.R2 


CMP 


R1.R2 


OEQ 


70i 


JNC 


EATFLG 



70$ 



ERRHRD ERRNO , T30WDD . PKTSSR 



CKi.OOP 



INC 


R3 


CMP 


R3.#21 


BNE 


65$ 



[WRITE DATA.ACK,CVC-1 COMMAND 

(SET UP R4 WITH PACKET ADDRESS 

iGET FILE COUNTER 

;MOVE TO UPPER BYTE 

iGEi RECORD COUNTER 

I FILE COUNTER IN UPPER, RECORD LOW 

iMOV 10 OUT PUT BUFFER 

i ISSUE COMMAND 

;WAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

(SET UP EXPECTED 

J ARE THEY EQUAL 

iBR. IF OK 

: ERROR COUNT 

iTSSR INCORRECT AFTER WRITE DATA 

TRAP C$ERHRD 
. WORD 222 
.WORD T30UD0 
.WORD PKTSSR 

jLOOP IF SELECTED 

TRAP CJCLPl 

J COUNT THE RECORD COUNTER DOWN 

;AT 20 YET 

:BR, IF NOT AT 20 RECORDS WRITTEN 



WRITE TAPE MARK,ACK.CVC-1 COMMAND 



141011 036650 

036650 

OOOOOO 

016330 

000002 

000200 



002214 



MOV 


#141011. T30PK3 


MOV 


0T30PK3.R4 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5),R1 


MOV 


#SSR,R2 


CMP 


R1.R2 


BEQ 


160$ 


INC 


FATFLG 



160$ 



ERRHRD ERRNO, T30WDC. PKTSSR 



CKLOOP 



jWRITE TAPE MARK.ACK.CVC-l COMMAND 

iSET \JO 04 WITH PACKET ADDRESS 

; ISSUE COMMAND 

jWAIT FOR SSR TO SET 

•PICK UP TSSR 

I SET UP EXPECTED CSSR ONL f ) 

[WAS STATUS GOOD 

(BR, IF TERMINATION WAS GOOD 
I ERROR COUNT 

(TSSR NOT CORRECT AFTER WRT TAPE H. 

TRAP C$ERHRD 
.WORD 223 
.WORD T30W0C 
.WORD PKTSSR 

[LOOP IF SELECTED 



T^ST I HARDWARl rKST 1 tt TtST MACFK] HU'OO I'O MAR 64 OHj^A PA'j^ t^S cM 
TtST .?: SKIP TAPE MARKS 



OFO 01 U 



1-^ 

1 



30 
?31 
52 
55 
1^54 
1^55 
1256 
125/ 
1256 
1259 
1240 
1241 
1242 
1243 
1244 
1245 
1249 



12S0 

12S1 
1252 
1253 
1254 
1255 
1256 
1257 

1256 
I .'59 
1260 
1261 
1262 
1266 



1267 

126fl 
1269 

1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 



034444 
054446 
034452 
054460 



034462 
034470 
054474 
054500 

034510 
054514 
054516 
054520 
034524 
034524 
054526 
054530 
054532 
054534 
034534 



054536 
054542 
054544 
054546 
054552 
054556 
054556 
054560 
054562 
054564 
054566 
054566 



054570 
054574 
054576 
034602 



104406 

005257 056704 

02572/ 056704 000031 

001275 



012737 
012704 
010465 
004737 
uU-501 
01. 702 
020102 
001406 
005237 

104456 
000540 
040412 
012126 

104406 



004737 
105411 
010004 
016501 
005237 

104456 
000541 
040270 
012126 

104406 



015/01 
010102 
052 702 
020102 



INC T50'CN 

CMP T50r 0^1.025 

HNe: 64 1 



TRAP 
iCOUNT THf "f :lF" COiJNTfR UOU*-i 
jWRTTe 2'', f n.tS 10 TAPb 
tBR, U NOT AT 25 MLf.S WRJ TT^^N 



CJCl.Pl 



«♦ 



WRITF TAPL MARK.ACK.rvC-l COMMANO 



141011 
056650 
000000 
016550 
000002 
000200 



002214 



056650 



MOV 


0141011. T50PK3 


MOV 


•T50F<5,R4 


MOV 


R4.TS3BC«'^.) 


JSR 


PC.WAIT^ 


MOV 


TS5:RCP5).R1 


MOV 


*SSR.R2 


CMP 


R1,R2 


BEO 


165$ 


INC 


FATFLti 


eRRHRD 


ERRNO.TSOWOC.PKTSSR 



165$: CKLOOP 



(WRITE TAPf- MARK.ACK.CVC"! COMMAND 

I SET UP R4 WITH PACKET ADORES^j 

lISSUF COMMANO 

iWAIT roy SSR TO SET 

iPICK UP TSSR 

» SET UP EXPECTED ( S5fl ONI- r ; 

iWAS STATUS GOOD 

iBRs U TERMINATION WAS GOQO 

lERROR COUNT 
iTSSR NOT CORRECT AFTER WRT TAPE H. 



ll.OOP IF SELECTED 



TRAP 


C^ER»*D 


.WORD 


224 


.WORD 


T50W0': 


.WOOD 


PKT'JSR 



TRAP 



C$CLP1 



ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR 5SR TO SET 



011074 



000002 
002214 



JSR 


PC.RIIWINO 


BCS 


170* 


MOV 


R0.R4 


MOV 


tssr;r5).ri 


INC 


FATFLG 


ERRHRO 


ERRN3,T30RWN.PKTSSR 



I CALL TAPE REWIND CO-^AND 
iBR. IF NO PROBLEM 
iGET PACKET ADDRESS 
iGET STATUS REGISTER 
i ERROR COUNT 
jREWIND NOT ACCEPTED 



1701 t CKLOOP 



iLOOP IF SELECTED 



TRAP 

.WORD 
.WORD 
.WORD 

TRAP 



CIERrf^D 
225 

T50RWN 
PKTSSR 

CICLPl 



056560 
000002 



iGET EXTENDED STATUf REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 
I 

MOV 
MOV 
BIS 
CMP 



T50ClFR.6,Ri 
Rl.»»2 
«ei'l.R2 
RliK2 



iPICK UP XSTO 

(SET UP EXPECTED 

iSf T BOT BIT IN EXPECTED 

jDOES EXP • REC'O 



TtS: 1 H/^HUWARt TMT 1 tt Tt:';i MACRO Ml^OO JV t^m 84 08:in PAGK P'": i>5 
TtbT 2; SKIP TAPE MARKS 



^jEQ 0119 



1279 
1280 
1264 



1285 

1266 

1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1500 
1304 
1305 



1306 

1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1316 
1319 
1320 
1321 
1322 
1323 



054604 
034606 
034612 
034612 
034614 
034616 
054620 
054622 
054622 
034624 
054652 
054656 
054644 
054650 



054654 
054660 
054662 
054666 
054670 
054670 
034672 
054674 
054676 
054700 
054700 



054702 
054710 
054716 
054722 
054726 
054734 
054740 
054744 
054750 
054752 
054752 
054756 
054760 
054764 
054 766 
054772 
054774 
035000 



001406 
005237 

104456 
000342 
040071 
015554 

104406 
012737 
012703 
013757 
011557 
012704 



002214 



004737 
105407 
00S237 
0X0001 

104456 
000545 

005052 
012114 

104406 



012757 
013737 
012704 
010465 
012737 
004737 
016501 
052701 
001017 

012727 
000000 
013727 
000000 
005367 
001375 
00536 7 
001367 



000002 
056666 
002174 
056546 
036530 



010742 
002214 



056704 
036550 



180$ 



182$ 



INC 
ERRHRD 



CKLOOP 

MOV 
MOV 
MCV 
MOV 
MOV 



1 80* 

FAULG 

ERRN0,T5OBOT.tXPREC 



0?, rSOFCN 

aT30IMV,H3 
UNITN.T300SW 
(P3),TiOETM 
*T30PACKET.R4 



»BR, ir KvvUAL COKj 

I ERROR COUU 

jTAPE NOT AT BOT AFTER REWIND 

TRAP CIERHRD 
.WOWO 226 
.WORD T30eor 
.WORD EXPREC 

(LOOP IF SELECTED 

FRAP C$CLPl 

iSET TO NiineEP or skip "files- 

iSET up pointer TO COMMAND TABLE 

J SET IJP unit number 

iGET NEXT COMMAND 

I SUBROUTINE NEEDS PACKET ADDRESS 



I ISSUE WRITE CHARACTERISTICS COMMAND 



!♦♦♦ 



JSR 
BCS 
INC 
MOV 
ERRHRD 



188$ J CKLOOP 



PC.WRTCHR 

ISfli 

FATFLG 

RO.Rl 

ERRNO . WRTMSG , SF IMSG 



I ISSUE WRITE CHARACTERISTICS 
I BR, IF COMMAND ISSUED OK 

(ERROR COUNT 
jSAVE CONTENTS OF TSSR 
iWRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 
iLOOP IF SELECTED 

TRAP 



C»ERHRD 
227 

WRTMSG 
SFIMSG 

CJCLPl 



) \ ****** A ****************** 4 *« 4 « 4 **« 4, 4, 4 4> «* 4. **««*« i ««*«* 4i « • 

(SKIP TAPE HARK.ACK.CVC-1 COMMAND 
1 

j4«*4*«******4>4>«***«***********4>**««*4i«4l******«***«******* 



141010 056650 

036704 036652 

056650 

000000 

176750 036706 

016550 

000002 

000200 



000250 

002116 

177772 
X77756 



MOV •141010, T30PK3 

MOV T30FCN.T50RB 

MOV •T30PK3.R4 

189*: MOV R4.T506(R5) 

MOV #65000. ,T300LY 

190$j JSR PCWAITF 

MOV TSSR(R5),R1 

BIT dssn.Ri 

BNE 191$ 

OaUAY 250 



I SKIP TAPE MARK,ACK.CVC-1 COWANO 

J SET UP NUMBER TO SKIP 

I SET UP R4 WITH PACKET ADDRESS 

I ISSUE COMMAND 

iSET UP DELAY COUNTER 

(WAIT FOR SSR TO SET 

(PICK UP TSSR 

(IS SSR SET YET 

iBR, IF SSR IS SET 

(CAUL DELAY ROUTINE 



MOV 


#250. CPO* 


.WORD 





MOV 


L$DLY.CPCn 


.WORD 





DEC 


-6(PC) 


BNE 


. 4 


DEC 


-22CPC) 


BNE 


.'20 



I.) i u 



r^^r 1 HARDWARE TFST 1 ft THST MACRO M1?00 JO MAR -84 08:44 PAGt-; (?5 ?6 
TtST 2: S.nIP TAPE MARKS 



191$ 



SEQ 01^0 



1324 


035002 


005337 


036 706 


1525 


0^5006 


001312 




1526 


035010 


012702 


OC0200 


1327 


035014 


020102 




1328 


035016 


001406 




1329 


035020 


005237 


002214 


1333 


035024 








055024 


1C4436 






055026 


000344 






035030 


037144 






035052 


012126 




1334 


035034 








035034 


104406 




1335 








1336 








1337 








1338 








1339 








1540 








1341 








1342 


035056 


013701 


036560 


1343 


055042 


010102 




1544 


055044 


05270? 


100000 


1545 


035050 


020102 




1346 


055052 


001406 




1347 


055054 


005237 


002214 


1551 


05'>(KO 








03':' : .0 


104456 






051. '^C? 


000345 






055064 


040544 






035066 


015554 




1352 


035070 








035070 


104406 




1353 


035072 


012700 


177777 


1354 


055076 


004737 


017502 


1355 
1356 
1357 


035102 


013737 


003116 036652 








1358 








1359 








1360 








1361 








1362 








1363 


055110 


012737 


140001 036650 


1364 


035116 


012704 


036650 


1365 


055122 


012737 


000024 036656 


1366 


055150 


010465 


000000 


1367 


055134 


004757 


016530 


1568 


055140 


016501 


000002 


1369 


055144 


012702 


000200 


1370 


035150 


020102 




1371 


055152 


001406 




1372 


035154 


005237 


002214 


1376 


055160 








055160 


104456 






055162 


000346 






035164 


037443 





DEC 


T30DLr 


BNt 


1901 


MOV 


#SSft.R2 


CMP 


R1,R2 


BEQ 


192» 


INC 


FATFLG 



192* 



ERRHRO ERRNO.rSOSKM.PKTSSR 



CKLOOP 



iBUMP DELAY ROUTINE 

(BR, IF MORE DELAY TO GO 

tSHT UP EXPECTED (SSR ONL f ) 

I WAS STATUS GOOD 

jBR. IF TERMINATION WAS GOOD 

(ERROR COijNT 
jTSSR NOT CORRECT AFTER SKIP TAPE M. 

TRAP C5ERHPD 



(LOOP IF SELECTED 



.WORD 
.WORD 
.WORD 

TRAP 



228 

T30SKM 

PKTSSR 

C$CLP1 



I *****4>**4.4i* 



t 



GET EXTENDED STATUS REGISTER ZERO (XiTO) FROM MESSAGE BUFFER 



MOV 


T308FR*6.R1 


MOV 


Rl»fi2 


BIS 


«JIT15,R2 


CMP 


R1,R2 


BEQ 


195$ 


INC 


FATFLG 



ERRHRD ERRNO . T30TMK , EXPREC 



195$: 



CKLOOP 

MOV 
JSR 
MOV 



*177777,R0 
PC.FILLMEM 
FREE.T30RB 



iPICK UP XSTO 

tSET UP EXPECTED 

;SET TMK BIT IN EXPECTED 

I DOES EXP - REC'D 

(BR, IF EQUAL (OK) 

(ERROR COUNT 
(TMK NOT SET AFTER WRT TAPE MARK 

TRAP C$ERHRD 

.WORD 

.WORD 

.WOI^D 
(LOOP IF SELECTED 

TRAP 
J VALUE TO WRITTEN TO MEMORY 
(FILL MEM WITH ALL ONES 
(STARTING READ BUFFER ADDRESS 



229 

T50TMK 
EXPREC 

C$CLP1 



I ****** 4 ********* *****«*«** ****4.4i4i 4, «4t«****4>4t«4i*«*4>4i«****** 

READ FORWARD. ACK.CVC-1 COMMAND 

;«**********************«*******«*********** ******^«44^4«« 



MOV 


0140001. T50PK3 


MOV 


♦T50PK3.R4 


MOV 


♦20. ,T50SZ 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5).R1 


MOV 


*SSR.R2 


CMP 


R1.R2 


BEQ 


200$ 


INC 


FATFLG 



ERRHRD ERRNO, T30RDF, PKTSSR 



(READ FORWARD. ACK.CVC-1 COMMAND 

(SET UP R4 WITH PACKET ADDRESS 

(SET UP RECORD SIZE IN PACKET 

(ISSUE COMMAND 

(WAIT FOR SSR TO SET 

(GET TSSR CONTENTS 

(SET UP EXPECTED 

[ARE THEY EQUAL 

(BR. IF OK 

(ERROR COUNT 

(TSSR INCORRECT AFTER WRITE DATA 

TRAP C$ERHRD 
.WORD 230 
.WORD T30RDF 



TFST 1 HARDWARE TEST 1-8 TtST MACRO MUOO :iOMAR-81 08:44 
TEST 2: SKIP TAPE MARKS 



n.o 

PAGE 25^7 



1577 

1378 
1379 
1580 
1581 
1582 
1386 



1387 

1388 
1589 
1590 
1391 
1392 
1393 
1594 
1395 
1399 



1400 

1401 
1402 
1405 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1416 



1417 

1418 
1419 

1420 
1421 
1422 
1423 
1424 
1425 



035166 
055170 
055170 
055172 
035176 
035202 
035204 
035206 
035212 
035212 
035214 
035216 
035220 
035222 
035222 
035224 
035230 
035232 
035234 
035240 
035244 
035246 
035250 
035254 
035254 
035256 
035260 
03526? 
035264 
035264 



035266 
035272 
035274 
035276 
035302 
035306 
035306 
035310 
035312 
055314 
035316 
035316 



012126 

104406 
017701 
012702 
020102 
001006 
005237 

104456 
000347 
041120 
015554 

104406 
013702 
005202 
000302 
052702 
017701 
020201 
001406 
005237 

104456 
000350 
037272 
015554 

104406 



004737 
103411 
010004 
016501 
005237 

104456 
000351 
040270 
012126 

104406 



145720 
177777 



002214 



036704 



000001 
145652 



002214 



011074 



000002 

002214 



200$: CKLOOP 



MOV 


SFREE.Rl 


MOV 


0177777, R2 


CMP 


R1.R2 


BNE 


220$ 


INC 


FATFLG 



ERRHRD ERRNO . T30DTR , EXPREC 



220$: CKLOOP 



MOV 


T30FCN,R2 


INC 


R2 


SUAB 


R2 


BIS 


*eiT0.R2 


MOV 


SFREE.Rl 


CMP 


R2.R1 


BEQ 


226$ 


INC 


FATFLG 



228$ 



ERRHRD ERRNO . T30PTB . EXPREC 



CKLOOP 



.WORD PKTSSR 
I LOOP IF SELECTED 

TRAP CJCLPl 
(FIRST LOG IN READ BUFFER 
; EXPECTED IF NO DATA TRANS. 
I DID ANT DATA GET TRANSFERRED 
J BR. IF NO DATA TRANS (GOOD) 

! ERROR courn 

(DATA TRANSFERRED ON READ TAPE MARK 

TRAP C$ERHRD 
.WORD 231 
.WORD T30DTR 
.WORD EXPREC 

J LOOP IF SELECTED 

TRAP C$CLP1 

;GET NUMBER OF SKIPS 

J SET TO CORRECT FILE VALUE 

I SWAP BYTE HALVES 

(SET FOR RECORD 01 

(GET INFO FROM Bl^FER 

(ARE THEY EQUAL 

;BR, IF EQUAL (OK) 

(ERROR COL«MT 

(RECORD POSITION WAS NOT CORRECT 

TRAP C$ERHRD 



(LOOP IF SELECTED 



.WORD 
.WORD 
.WORD 

TRAP 



232 

T30PTB 

EXPREC 

C$CLP1 



ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 

(CALL TAPE REWIND COMMAND 
(BR. IF NO PROBLEM 
(SAVE PACKET ADDRESS 
jGET TSSR STATUS 

(ERROR COUNT 
ERRHRD ERRNO. T30RWN,PKTSSR (REWIND NOT ACCEPTED 



JSR 


PC, REWIND 


BCS 


230$ 


MOV 


R0.R4 


MOV 


TSSR(R5).R1 


INC 


FATFLG 



230$: CKLOOP 



(LOOP IF SELECTED 



TRAP 


C$ERHRD 


.WORD 


235 


.WORD 


T30RWN 


.WORD 


PKTSSR 



TRAP 



C$CLP1 



035320 013701 036560 



IgET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 
MOV T308FR*6.R1 jPICK UP XSTO 



SEQ 0121 



F" 1 



TFST 1 HARDWARE TEST 18 TtST MACRO MI200 :.^0-MAR~84 08:44 PAGE 25-28 
TEST 2: SKIP TAPE MARKS 



SEQ 0X22 



1426 

1427 
1428 
1429 
1430 
1434 



1435 

1436 
1457 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 

1446 



1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 



1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 



035324 
035326 
035332 
035534 
035336 
035342 
035342 
035344 
035346 
035350 
035352 
035352 
035354 
055356 
035360 
035564 
055566 
035572 
035374 
035376 
035A02 
035406 
035406 
055410 
035410 
035410 
035412 
035420 
035422 
035426 



055426 
035426 
035426 
055430 
035434 
035440 
035444 
035450 
055456 
035462 
035464 
035464 



010102 
052702 
020102 
001406 
005237 

104456 

000352 
040071 
015554 

104406 
005723 
011301 
020127 
001410 
013701 
000241 
006101 
010137 
000137 

104406 



104403 
023727 
103402 
004737 



104402 
004737 
005057 
0O4737 
0O4737 
012737 
004737 
103426 



000002 
002214 



MOV 


R1.R2 


;SET UP EXPECTED 


BIS 


^BIT1.R2 


(SET SOT BIT IN EXPECTED 


CMP 


R1,R2 


iDOES EXP - REC'D 


BEQ 


240J 


(BR. IF" EQUAL (OK) 


INC 


FATFLG 


I ERROR COUNT 


ERRHRD 


eRRN0.T30B0T.EXPREC 


J TAPE NOT AT BOT AFTER R 



240$ 



CKLOOP 



LOOP IF SELECTED 



REWIND 




TRAP 


CiERHRD 


.WORD 


254 


, WORD 


T30B0T 


.WORD 


EXPREC 



TRAP 



177777 
036704 



036704 
054644 



330$ 



TST 


CR3)* 


MOV 


CR5).R1 


CMP 


Rl, 0177777 


BEQ 


330* 


MOV 


T30FCN,R1 


CLC 




ROL 


Rl 


MOV 


R1,T50FCN 


JMP 


182$ 


CKLOOP 





002214 000017 
017262 



ENDSUB 



CMP 
BLO 
JSR 



999$: 



FATFLG, *15, 

999$ 

PC.CKDROP 



;P0INT TO NEXT POSITION 

;GET NEXT COMMAND ETC. 

jENO OF TABLE MARKER 

jBR. IF AT END OF TABLE 

jGET NUMBER OF SKIPS 

(CLEAR THE CARRY BIT 

(PUSH OVER ONE POSITION 

iPUT BACK IN COUNTER 

J JUMP TO MORE COMMANDS TO DO 

;LOOP IF SELECTED 

TRAP 

;«•<<<<<<<<<< END SUBTEST >>>>>>> 

L 10045: 

TRAP 
IS ERROR COUNT AT 25 
BR. IF LESS THAN 25 
TRY TO DROP THE UNIT 



C$CLP1 



CJCLPl 
> >>> 

C$ESUB 



TEST 2, SUBTEST 5 



VERIFIES T^^.M . "KIP TAPE MARKS REVERSE COMMAND 
ISSUED WHILI- 'Ki£ TAPE IS POSITIONED AT BOT CAUSES 
FUNCTION REJtCT TERMINATION. WITH THE NON-EXECUTABLE 
FUNCTION (NEF) (ERROR BIT SET. 



BGNSUB 



>>>>>>>>>>>> 



041302 
036704 

041436 
176750 
016054 



BEGIN SUBTEST 
T2.3: 

TRAP 



>>>■>>>•>>■> >->^ 



036706 



10$: 



012727 000250 



JSR 


PC,T30REST 


CLR 


T30FCN 


JSR 


PC,T30RT2 


JSR 


PC,T30RT3 


MOV 


^5000..T30DLY 


JSR 


PC.SOFINIT 


BCS 


20$ 


DELAY 


250 



I SET COMMAND PACKET 

(CLEAR FILE COUNTER 

(SET UP OTHER COMMAND PACKET 

J SET UP OTHER COMMAND PACKET 

(SET UP DELAY COUNTER 

(DO INITIALIZE ON CONTROLLER 

jBR IF INIT WAS OK 

I DELAY ROUTINE CALL 

MOV 



C$BSUB 



^250, (PCV 



TeST 1 


- HARDWARE TEST 


1-8 TES 


TEST 2 


: SKIP TAPE MARKS 




035470 


000000 






035472 


013727 


002116 




035476 


000000 






035500 


00536 f 


177772 




035504 


001375 






035506 


005367 


177756 




03553 2 


001367 




14 75 


035514 


005337 


036706 


1476 


035520 


001356 




1477 


035522 


005237 


002214 


1481 


035526 


010001 




1482 


035530 








035530 


104455 






035532 


000353 






035534 


003646 






035536 


012114 




1483 


035540 






1484 


035540 


013737 


002174 


1465 


035546 


012704 


036530 


1486 








1487 








1488 








1489 








1490 








1491 








1492 








1493 


035552 


004737 


010742 


1494 


035556 


103407 




1495 


035560 


005237 


002214 


1499 


035564 


010001 




1500 


035566 








035566 


104456 






035570 


000354 






035572 


005052 






035574 


012114 




1501 


035576 








035576 


104406 




1502 








1503 








1504 








1505 








1506 








1507 








1508 








1509 


035600 


004737 


011074 


1510 


035604 


103411 




1511 


035606 


010004 




151c 


035610 


016501 


atX)002 


1513 


035614 


005237 


002214 


1517 


035620 








035620 


104456 






035622 


000355 






035624 


040270 






035626 


012126 




1518 


035630 








035630 


104406 




1519 
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036550 



20$: 









SEQ 0123 






.WORD 









MOV 


LJDLf.CPCA 






.WORD 









DEC 


-6CPC) 






BNE 


. -4 






DEC 


-22(PC) 






BNE 


. -20 


DEC 


T30DLY 


(BUMP COUNTER 




BNE 


10* 


J BR. ir MORE COUNTING TO DO 




INC 


FATFLG 


{ERROR COUNT 




MOV 


HO.Rl 


(CONTENTS OF T5SR REGISTER 




ERRDF 


ERRNO.SriERR.SFIMSG 


; FATAL ERROR TSSR WAS NOT OK 








TRAP 


CJERDF 






.WORD 


235 






.WORD 


SFIERR 






.WORD 


SFIMSG 



MOV UNITN,T30DSW 
MOV #T?0PACKET.R4 



[SET UP UNIT NUMBER 

[SUBROUTINE NEEDS PACKET ADDRESS 



ISSUE WRITE CHARACTERISTICS COMMAND 



23$ 



JSR PC.WRTCHR 

BCS 231 

INC FATFLG 

MOV RO.Ri 

ERRHRD ERRNO.WRTMSG, SFIMSG 



CKl.OOP 



; ISSUE WRITE CHARACTERISTICS 
J BR. IF COMMAND ISSiJED OK 

; ERROR COUNT 
[SAVE CONTENTS OF TSSR 
J WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



iLOOP IF SELECTED 



TRAP 



CiERHRO 
236 
WRTMSG 
SFIMSG 

CSCLPl 



t 

[ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 

* 

>«*4t4i4i*****************4.****j*4>***«*4^**4>'*k******4** *«***«*** 

J CALL TAPE REWIND COMMAND 
[BR. IF NO PROBLEM 
[GET PACKET ADDRESS 
[GET STATUS REGISTER 
[ERROR COUNT 
[REWIND NOT ACCEPTED 



JSR 


PC, REWIND 


BCS 


30$ 


MOV 


R0.R4 


MOV 


TSSR(R5).R1 


INC 


FATFLG 



30*1 



ERRHRD ERRNO , T30RWN , PKTSSR 



CKLOOP 



[LOOP IF SELECTED 



TRAP 
.WORD 
• WORD 
.WORD 

TRAP 



C*ERHRD 

237 

T30RWN 

PKTSSR 

CSCLPl 



TfSr 1 HrtRDWARL TF.ST 1-6 ThST 
TtST 2: SKIP TAPE MARKS 



1520 
1521 
1522 
1525 
1524 
1525 
1526 
1527 
1528 
1529 
1530 
X531 
1535 
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1536 

1537 
1538 
1539 
15V1 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 

i'=:>i 

^552 
1553 
1557 



1558 

1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1575 



035632 
035636 
035640 
035644 
035646 
035650 
035654 
035654 
035656 
035660 
035662 
035664 
035664 
035666 



0356 74 
03^^ /02 
Oj5706 
<^35712 
D357iS 
035722 
035726 
035750 
035732 
035756 
035736 
035740 
035742 
035744 
035746 
035746 



035750 
035754 
035 756 
035732 
035764 
035766 
035772 



013701 
010102 
052702 
020102 
001406 
005237 

104456 
000356 
040071 
015554 

104406 
012737 



012737 
012704 
010465 
004757 
016501 
012702 
020102 
001406 
005237 

104456 
00035/ 
037061 
012126 

104406 



013701 
010102 
052702 
020102 
001406 
005237 



036560 
000002 

002214 



141410 
036650 
000000 
016330 
000002 
100206 



002214 



036560 
002000 

002214 



SEQ 0124 



GET EXTENDED STATUS REGISTER ZERO CXSTO) FROM MESSAGE BUF^tR 

4*4 *4iA4i4i4L*44i*4i4i*4*4>«***«A «*«4.4t«4t ***.** A4i**4**A* 44444444444 



MOV 


T30BFRf6,Rl 


MOV 


R1.R2 


BIS 


*eiTl.R2 


CMP 


R1.R2 


BEQ 


40$ 


INC 


FATFLG 



ERRHRD ERRNO , T3OB0T , EXPREC 



40$ 



000001 036652 



jLOOP IF SELECTED 
I SET * OF TM TO SKIP 



CKLOOP 

MOV *1.T30UB 

4444>*4**44444*4*44i*j4***j4***44*4«444«444444*444**444i*4444i4 

SKIP TAPE MARK RhVEHSE. ACK,CVC-1 COMMAND 

44i*4ij44 4i**4 4*A««4 4*«4 444i4>44'4«4 4.4 + 4t4<44i4i*4i4i*4 4«44 4i*4444i4«*4i4i 



;PICK UP XSTO 




;SET UP EXPECTED 




iSET BOT BIT IN EXPECTED 




J DOES EXP ^ REC'O 




;BR, IF EQUAL (OK) 




i ERROR COUNT 




;TAPE NOT AT BOT AFTER REUIND 




TRAP 


C*ERHRD 


.WORD 


238 


.WORD 


T30BOT 


.WORD 


EXPREC 



TRAP 



CJCLPl 



036650 



MOV 


#141410. T30PK3 


MOV 


ffT30PK3.R4 


MOV 


n4,TS0BCR5) 


JSR 


PC.WAITF 


MOV 


TSSH(R5).R1 


MOV 


#SSR!SC!BIT1!BIT2»R2 


CMP 


R1.R2 


BEQ 


70* 


INC 


FATFLG 



70$ 



ERRHRO ERRNO , T30IBT , PKTSSR 



CKLOOP 



;SKIP TAPE MARK REVERSE .ACK.CVC-l CMD 
;SET UP P4 WITH PACKET ADDRESS 
(ISSUE COMMAND 
jWAIT FOR SSR TO SET 
jGET TSSR CONTENTS 
J SET UP EXPECTED 
iARE THEY EQUAL 
;BR. IF OK 

J ERROR COUNT 
;TSSR INCORRECT mFTER WRITE DATA 

TRAP C$ERHRD 



iLOOP IF SELECTED 



.WORD 
.WORD 
.WORD 

TRAP 



239 

T30IDT 
PKTSSR 

C$CLP1 



*44*444444**444*44*4444>****444444444444*4**444'fc 4*44444**4 

GET EXTENDED STATUS REGISTER ZERO CXSTO) FROM MESSAGE BUFFER 

***«*****4***4**4******«************«*4*4*******4** ****** 

jPICK UP XSTO 

iSET UP EXPECTED 

;SET NEF BIT IN EXPECTED 

iDOES EXP - REC'O 

;BR, IF EQUAL (OK) 

J ERROR COUNT 
jTAPE NOT AT NEF 



MOV 


T50BFR*6,R1 


MOV 


R1.R2 


BIS 


♦eiT10.R2 


CMP 


R1.R2 


BEQ 


1801 


INC 


FATFLG 



ERRHRD ERRNO, T50NEF, EXPREC 



TE-.sr 1 HARDWARF. TFST 1-8 TtST MACRO Ml^OO 
TtST 2: SKIP TAPE MARKS 



I'O MAR-64 08:44 PAGE 2b 31 



SEQ 01^5 



1576 
15^7 



1578 
1579 
1560 
1581 
158c' 
1583 
1584 
1585 
1586 
158 7 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
159? 
1598 



1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 



1607 
1608 
1609 

1613 
1614 



035772 
035774 
035776 
036000 
036002 
036002 
036004 
036004 
036004 
036006 
036014 
036016 
036022 



036022 
036022 
056022 
056024 
056050 
036054 
056040 
036044 
056052 
056056 
056060 
056060 
056064 
056066 
056072 
056074 
056100 
056102 
056106 
056110 
036114 
056116 
056122 
036124 
056124 
036126 
036130 
036132 



104456 
OOOSf.O 
040626 
015554 

104406 



104403 
023727 
103402 
004737 



104402 
004737 
005037 
004737 
004737 
012737 
004737 
103426 

012727 
000000 
013727 
000000 
005567 
001575 
005567 
001567 
005357 
001356 
005237 
010001 

104455 
000361 
003646 
012114 



180$; 



002214 000017 
017262 



CK1.00P 
EMDSUB 



CMf 
Bl.O 
JSR 



999?: 



FA1TLG,/I15 
999 J 
PC.CKOROP 



TRAP C$tRH«D 

.WORD 240 

.WORD T30NEF 

.WORD EXPREC 
jl OOP Tf SFL.ECTFD 

TRAP CJCLPl 

■ <<<<<<<<<<< tMO SUB ^sr >>>>>>>>■.>> 

L 10046: 

TRAP C$ESUB 
IS ERROR COUNT AT 25 
BP. IF LESS THAN 25 
TRY TO DROP THE UNIT 



TEST 2, SUBTEST 4 



VERIFIES THAT A SKIP TAPE MARKS REVERSE COMMANO 
ISSUED WHILE THE TAPE IS POSITIONED JUST BEFORE THE 
FIRST RECORD ON ON TAPE (BUT NOT AT SOT) CAUSES TAPE 
STATUS ALERT TERMINATION. WITH THE REVERSE INTO BOT 
(RIB) STATUS BIT SET. 



BGNSUe 



>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 



T2.4: 



041302 
036704 
041374 
041436 
176750 
016054 



000250 
002116 
177772 
177756 
036706 
002214 



TRAP 



036706 



10$: 



JSR 


PC.T30REST 


CLR 


T30FCN 


JSR 


PC.T30RT2 


JSR 


PC,T30RT3 


MOV 


*65000. .T30DLY 


JSR 


PC.SOFINIT 


BCS 


20$ 


DELAY 


250 



jSET COMMAND PACKET 

tCLEAR FILE COUNTER 

(SET UP OTHER COMMAND PACKET 

iSET UP OTHER COMMAND PACKET 

J SET UP DELAY COUNTER 

;D0 INITIALIZE ON CONTROLLER 

tBR IF INIT WAS OK 

; DELAY ROUTINE CALL 



CJBSUB 







MOV 


«250,(PC)* 






.WORD 









MOV 


L$DLY.(PC)* 






.WORD 









DEC 


-6(PC) 






BNE 


. 4 






DEC 


-22(PC) 






BNE 


. -20 


DEC 


T30DLY 


I PUMP COUNTER 




BNE 


101 


iBR, IF MORE COUNTING TO DO 




INC 


FATFLG 


J ERROR COUNT 




MOV 


RO.Rl 


(CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


(FATAL ERROR TSSR WAS NOT OK 








TRAP 


C$FRDF 






.WORD 


241 






.WORD 


SFIERR 






.WORD 


SFIMSG 



TtST 1 HMRDwARi; TKST 1-6 TtST 
TfcST 2'. SKIP TAPE MARKii 



MACRU Ml^OO 'JO MAR -34 08:44 PAGF ?.^ 52 



1615 


036134 






1616 


036134 


013737 


0021/4 


1617 


056142 


012704 


036530 


1618 








1619 








16^0 








\b?i 








1^.>«? 








1623 








1624 








1625 


036146 


004757 


010742 


1626 


036152 


105407 




1627 


036154 


005257 


002214 


1631 


056160 


010001 




1632 


036162 








036162 


104456 






036164 


00C562 






036166 


005052 






036170 


012114 




1633 


036172 








036172 


104406 




1654 








1635 








1656 








1637 








1638 








1659 








1640 








1641 


036174 


004757 


011074 


1642 


036200 


103411 




1643 


056202 


010004 




1644 


056204 


016501 


000002 


1645 


056210 


005257 


002214 


1649 


036214 








056214 


104456 






036216 


000563 






036220 


040270 






056222 


012126 




1650 


036224 








036224 


104406 




1651 








1.652 








1653 








1654 








1655 








1656 








1657 








1658 


036226 


015701 


056560 


1659 


056232 


010102 




1660 


036234 


052702 


000002 


1661 


036240 


020102 




1662 


056242 


001406 




1663 


036244 


005237 


002214 


1667 


056250 








036250 


104456 






056252 


000564 






036254 


040071 





036550 



20$; 



MOV UNITN,T50DSW 
MOV #T30PACI<ET.R4 



;SET UP UNIT NUHBeR 

; SUBROUTINE. NEEDS PACKET ADDRESS 



ISSUE WRITE CHARACTERISTICS COMMAND 



23J: 



JSR PC.WRTCHR 

eCS 23i 

INC FATFLG 

MOV RO.Rl 

ERRHRO ERRNO . WR TMSG , SFIMSG 



CKLOOP 



; ISSUE WRITE CHARACTERISTICS 
;BR. IF COMMAND ISSUED OK 

! ERROR COUNT 
;5AVE CONTENTS OF TSSR 
iWRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



;L0OP IF SELECTED 



TRAP 



ISSUE A REWIND TO TAPE DRiVE AND WAIT FOR SSR TO SET 



iCALL TAPE REWIND COMMAND 
;BR. IF NO PROBLEM 
jGET PACKET ADDRESS 
jGET STATUS REGISTER 
J ERROR COUNT 
J REWIND NOT ACCEPTED 



JSR 


PC. REWIND 


BCS 


30t 


MOV 


R0.R4 


MOV 


TSSR(R5).R1 


INC 


FATFLG 



30i: 



ERRHRD ERRNO . T30RWN , PKTSSR 



CKLOOP 



jLOOP IF SELECTED 



TRAP 



GET EXTENDED STATUS REGISTER ZERO (XSTO^ FROM MESSAGE BUFFER 

(PICK UP XSTO 

J SET UP EXPECTED 

(SET BOT BIT IN EXPECTED 

(DOES EXP ■ REC'O 

;Bn. IF EQUAL (OK) 

; ERROR COUNT 
J TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 



MOV 


T30BFR^6.R1 


MOV 


R1,R2 


BIS 


^IT1.R2 


CMP 


R1,R2 


BEQ 


401 


INC 


FATFLG 



ERRHRD ERRNO , T3OB0T , EXPREC 



C$ERHRD 

242 

WRTMSG 

SFlMSt, 

C$CLP1 



TRAP 


C$ERHRD 


.WORD 


243 


.WORD 


T30RWN 


.WORD 


PKTSSR 



CSCLPl 



CJERHRO 

244 

T30B0T 



SEQ 01^6 



Tt-:^>T 1 HARDWARt- TKST 1-6 TtST MACRO M1?00 L^0-MAR-«4 08;44 
TEST 2: SKIP TAPH MARKS 



PAGt ^5-35 



16b8 

1669 
1670 
1671 
1672 
167? 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
168? 
1683 
1684 
1685 
1686 
1690 



1691 

169;^ 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1^02 
1703 
1704 
1705 
1706 
1 707 
1708 
1712 



1713 

1714 
1715 
1716 
1717 
1718 



036256 
036260 
036260 
036262 
036270 



015554 

104406 
013737 
012737 



036276 
036304 
036310 
036314 
036320 
036324 
036330 
036332 
036334 
036340 
036340 
036542 
036344 
036346 
036350 
036350 



012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
000365 
03/220 
012126 

104406 



036352 
036360 
036366 
036372 
036376 
0^6402 
03e406 
056412 
036414 
056416 
056422 
056422 
036424 
056426 
036430 
036432 
036432 



012737 
012737 
C12704 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

1044:6 
000366 
036710 
012126 

104406 



40Si 



003116 
000400 



036652 
036656 



CKLOOP 

MOV 
MOV 



FRe&,T30WB 
<>256.,T30S/ 



.WORD 
il OOP IF SELFCTED 

TRAP 
;SFT UP GOOD WRITE BUFFER 
;SET UP SIZE 



EXPRFC 
C$CLP1 



140005 
036650 
000000 
016330 
000002 
000200 



002214 



000001 
141410 
036650 
000000 
016330 
000002 
100204 



002214 



WRITE DATA,ACK.CVC-1 COMMAND 



036650 



MOV 


0140005. T30PK3 


MOV 


0T30PK3.R4 


MOV 


R4.TS0BCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


0SSR,R2 


CMP 


R1.R2 


BEQ 


70 i 


INC 


FATFLG 



70*! 



ERRHRD ERRNO , T30WDD . PKTSSR 



CKLOOP 



WRITE DATA.ACK.CVC-1 COMMAND 

SET UP R4 WITH PACKET ADDRESS 

ISSUE COMMAND 

WAIT FOR SSR TO SET 

GET TSSR CONTENTS 

SET UP EXPECTED 

ARE THEY EQUAL 

BR, IF OK 

; ERROR COUNT 
J TSSR INCORRECT AFTER WRITE DATA 

TRAP CJERHRD 



;L00P IF SELECTED 



.wono 

.WORD 

.WORD 

TRAP 



245 

T30WDD 
PKTSSR 

CJCLPl 



SKIP TAPE MARK REVERSE ,ACK ,CVC-1 COMMAND 



036652 
0366150 



MOV 


#1.T30WB 


MOV 


#141410. T30PK3 


MOV 


*T30PK?,R4 


MOV 


R4,TS0eCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5).R1 


MOV 


*SSR!BIT2!SC.R2 


CMP 


R1.R2 


BEQ 


160$ 


INC 


FATFLG 



160$: 



ERRHRD ERRNO. T30IBU, PKTSSR 



CKLOOP 



» OF TM TO SKIP 

SKIP TAPE MARK REVERSE . ACK , CVC'l CMD 
SET UP R4 WITH PACKET ADDRESS 
ISSUE COMMAND 
WAIT FOR SSR TO SET 
(PICK UP TSSR 

;SET UP EXPECTED CSSR AND SC ONLY) 
(WAS STATUS GOOD 
tBR. IF TERMINATION WAS GOOD 

J ERROR COUNT 
iTSSR NOT CORRECT AFTER WRT TAPE M. 

TRAP C$ERHRD 
.WOr,D 246 
.WORD T30IBU 
.WORD PKTSSR 
:LOOP IF SELECTED 

TRAP C$CLP1 



IgET EXTENDED STATUS REGISTER ZERO CXST3) FROM MESSAGE BUFFER 



SEQ 0127 



i () 



TE:ST 1 ■ HARDWARE TKST 1-6 TEST MACRO H1300 '^0 MAR -84 08:44 PAGE ^S-i*-^ 
TEST 2 1 SKIP TAPE MARKS 



SEQ 0156 



1719 
17..'0 
1721 
1722 
1725 
1724 
172S 
1.V6 
1730 



1731 
1752 



1733 
1734 
1735 
1736 
1737 
1733 
1739 
1740 
1741 
1742 
1743 



1744 
1745 
1746 
1748 
17 SO 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
3 758 
17S9 
1760 
1761 
1/62 
1763 
17o4 
1766 
1768 
1769 
1770 
1771 
1772 
1773 



036434 
036440 
036442 
036446 
036450 
036452 
036456 
036456 
036460 
036462 
036464 
036466 
036466 
0364 70 
036470 
0364 70 
036472 
036500 
036502 
036506 



036506 
036512 
036514 
036520 
056520 
036522 



036530 
036530 
056532 
036554 
036556 
036540 
036540 
056542 
036544 
036546 
056550 
036552 



036640 
036640 
036642 
036644 
036646 



013701 
010102 
C-52/02 
020102 
001406 
005237 

104456 
000367 
036775 
015554 

104406 



104403 
023727 
103402 
004737 



•***^*.A*.*.*.*.*.*-*.A*.*.**L*'*-***^***f'*.*.**^*i*^A*.*A.^^*^*^**.*^*^ik^M*.4-**M*Mjtt**it 



036566 
000001 



002214 



MOV T50Bf--R*14,Rl 

MOV R1.R2 

HIS ^BIT0.R2 

CMP R1,R2 

BEQ 170J 

INC FATFLG 

ERRHRD ERRNO . T30RIB . EXPREC 



002214 000017 
017262 



004 737 016536 

103002 

000137 032410 

104432 
002736 



036530 

100004 
056540 
000000 
000012 

036552 
000000 
000024 
OOOOOO 
000000 



036640 

100006 
036660 
OOOOOO 
000006 



170$: 


CKL002 
ENDSUPj 




CHP 
BLO 
JSR 

999 V: 

; SUBTEST END 


e'ATFLG,^15. 

999$ 

PC.CKDROP 


400$: 


JSR 
BCC 
JMP 
EXIT 


PC.TSTLOOP 
400$ 
T5OLO0P 
TST 



! LOCAL STORAGE 


FOR THIS 


.-<,*1C 


>tl77770 


T30PACKET: 




.WORD 


100004 


.WORD 


T50DATA 


.WORD 





.WORD 


10. 


T30DATA; 




.IJORD 


T30BFR 


• WORD 





. WORD 


20. 


T30ETM: .WORD 





T300SW: .WORD 





T30BFR: .BLKU 


25, 



WRITE SUBSYSTEM MEMORY COMMAND PACKET 
.-<. *10>6a7777O 



T30PK2 : 



.WORD 
.WORD 
.WORD 
.WORD 



100006 

T30BF2 



6. 



KTCK UP X5T3 

SET UP EXPECTED 

SET y-^lB BIT IN EXPECTED 

DOES E/P - REC'D 

BR, IF tOUAL COK) 

iEH.'^OR COUNT 
jTAPE NOT AT RIB 



TRAP 


CJERHRO 


.WORD 


24 7 


.WORD 


T30RIB 


.WORD 


EXPREC 


jLOOP IF SELECTED 




TRAP 


C$CI-P1 


.<<<<<<<<<<< END jUBTEST >>>-.>>>>>>> 


L 1004 7: 




TRAP 


CJESUB 


tIS ERROR COUNT AT 25 




;BR. IF LESS THAN 25 




;TRY TO DROP THE UNIT 





DO WE NEED TO ITERATE TEST 
BR. IF NO LOOP REQUIRED 
EXECUTE AGAIN 
(ALL DONE THIS TEST 

TRAP 
.WORD 



C$fcXlT 
L10043 



COMMAND PACKET FOR TEST 

WRITE CHARACTERISTICS COMMAND. WITH 

ADDRESS OF CHARACTERISTICS BLOCK 

; STARTING VALUE OF BLOCK SIZE 
I CHARACTERISTICS DATA BLOCK 
J ADDRESS OF MESSAGE BUFFER 

iLENGTH OF MESSAGE BUFFER 
SKIP TAPE MARK CONTROL 
SELECT DRIVE 
MESSAGE BUFFER 



ACK 



; WRITE SUt; SYS MEM COMMAND, AND ACK 
J ADDRESS OF SELECT BLOCK DATA 

:SIZE OF DATA PACKET 



MIO 



TbST 1 - HARDWARE; IFS' 1 -8 TEST MACRU MiaOO 'dO MAR-84 08:44 PAGE 25-35 
TEST 2: SKIP TAPE HARKS 



SEQ 01^9 



1778 
1779 
178( 
1781 

178i:^ 

1783 
ir84 
1785 
1786 
1787 
1788 
1789 
1790 
1791 
1/92 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1801 
180.^ 
1803 
180>^ 

leoci 

1806 
1807 
130» 
1809 
1810 
1811 
1812 
1813 
1814 
1815 
1816 
1817 
1018 
1819 
1820 
1021 
1622 
1823 
18.-^4 
1525 
1626 
1827 
1828 
1829 
1830 
1831 
1832 
1833 



036650 
036650 
036652 
036652 
036654 
036656 



036660 
036660 
036661 
036662 
036664 



036666 
036666 
036666 

036670 
036672 
036674 
036676 



036700 
036702 
036704 
036706 



056710 
036/75 
037061 
037144 
037220 
0372/2 
037363 
037443 
037521 
037603 
037660 
057741 
040012 
040071 
040156 
040213 
04027C 
040337 
040412 
040471 



100205 

003116 
000000 
000000 



010 

200 

000000 

000000 



000000 
000100 
000200 
000300 
177777 



000000 
000000 
000000 
000000 



124 
122 
124 
124 
124 
124 
124 
124 
124 
124 
111 
127 
124 
124 
124 
124 
122 
104 
1?4 
103 



123 
111 
123 
123 
123 
141 
141 
123 
123 
123 
154 
122 
123 
141 
123 
123 
145 
162 
123 
126 



123 
102 
123 
123 
123 
IbO 
160 
123 
123 
123 
154 
111 
123 
160 
123 
123 
16/ 
151 
123 
103 



r^OPKS: 








.WORD 


1002 


Ti0R':(: 






T3oW[* 


.WORD 


KREE 




.WORD 





T301./: 


.WORD 
.EVEN 





T30D"2: 






T30B50: 


.BYTE 


10 


T30BS1: 


.BYTE 


200 


T30S2: 


. WORD 





T30S3: 


.WORD 






;RtREAD COMMAND, IF AND ACK 
; ADDRESS OF WRITE BUFFER 
;SIZE OF BUFFER (EXTENT) 



nSELO AREA 
BSHLl AREA 
SEL 2 AREA 
DATA AREA 



.EVEN 
.-TAPE MOTION PACKET COMMAND VALUES 



T30IMV: 






T30RN: 








.WORD 


000000 




.WORD 


000 too 




.WORD 


000200 




.WORD 


000300 




.WORD 


177777 


T30CNT: 


.WORD 





T30CNU: 


.WORD 





T30rCN: 


.WORD 





T30nLY; 


.WORD 






NEITHER EWB NOR ESS 

EWB SET 

ESS SEl 

BOTH EWB AND ESS SET 

END OF DATA 



TAPE TIMER COUNTER STORAGE AREA 
TAPE TIMER COUNTER STORAGE AREA 
FILE NUMBER COUNTER 
DELAY COUNTER STORAGE 



LOCAL TEXT MESSAGES FOR TEST 



T30IBU 
730RIB 
TSOIBT 
T30SKM 
T30WDD 
T30PTB 
T30TPB 
T3OR0F 
T30RDG 
T30W0F 
T3OL0Q 
T30SSR 
T30UDE 

Tsoeor 

T30TM: 
T30rM2 
T30RWN 
T300fL 
T3OW0C 
T30VCK 



A3CIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 



TSSR Incorrect 
RIB Bit (XST3) 



TSSR 
TSSR 
TSSR 
Tape 
Tape 
TSSR 
TSSR 
TSSR 
Ille 
WRIT 
TSSR 
Tape 
TSSR 
TSSR 



After SKIP TAPE MARK REVERSE Into BOT' 
Failed To Set After Reverse Into B01 ' 
Incorrect After SKIP TAPE MARK REVERSE At BOT' 
Incorrect After SKIP TAPE MARK Command' 
Not Correct After WRITE DATA Command' 
Not Positioned On Correct Record After READ REVERSE 
Not Positioned On Second File First Record' 
Incorrect After READ FORWARD Into "File"' 
Incorrect After SPACE Coinmand Into TAPE MARK' 
Hot Correct After Illegal Mode Bits Set 
al Mode Bits, Failed To Set ILC Bit In XSTO' 

MISCELLANEOUS Command Not Accepted' 
Not Correct After SKIP TAPE MARKS. At BOT' 
At BOT After REWIND Conwnond' 
Correcl After SPACE FORWARD Command' 



bk)t 
Not 
Not 



Correct Af*:er SPACE REVERSE Command' 



Rewind (POSITION) Command Not Accepted' 
Drive 7 Select Failed To Set "OFL" In TSSR' 
TSSR Not Correct After WRITE TAPE MARK Command' 
CVC Set, Didn''t Reset VCK In Message Buffer' 



N 1 



Te;ST 1 HARDWARE. THST 16 TtST MACRO M1.?00 20-MAR-84 08:44 PAGE 25-36 
TtbT 2: SKIP TAPE MARKS 



SEQ 0130 



1834 
1835 
1836 
1837 
1838 
1859 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
18^7 
1848 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
1863 
1H64 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1672 
1873 
1874 
1675 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 



040544 
040626 
040705 
040763 
041042 
041320 
041164 
041261 



041302 
041302 
041306 
041312 
041316 
041322 
041324 
041330 
041334 
041336 
041342 
041344 
041350 
041354 
041362 
041354 
041370 
041372 

041374 
041374 
041400 
041404 
041410 
041414 
041416 
041422 
041424 
041430 
041432 
041434 
041436 
041436 
041442 
041446 
041450 
041452 
041454 
0'!1456 
0414C0 
041460 



124 
123 
124 
124 
124 
116 
104 
123 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
012711 
012702 
012762 
005742 
022702 
001371 
0002C7 



012 701 
012721 
012721 
005021 
012721 
005021 
012701 
005021 
005011 
000207 



012701 
005021 
005021 

005021 
005011 
000207 



115 
113 
115 
115 
115 
117 
141 
153 



036530 
100004 
036540 

000012 
036552 

000024 

000000 
000030 

177777 

000000 



036640 
100006 
036660 

000006 

036660 



036650 



113 
111 
113 
113 
113 
040 
lbi+ 
151 



T30TMK 
T30NEF" 
T30RRM 
T30RRN 
T30RRP 
T30DTR 
T300TA 
rST30IDi 



.ASCI/ 
.AL0I2 
.ASCIZ 
.A5CIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.EVEN 



TMK Not Set After WRITE TAPE MARK (RETRY) Command 
SKIP TAPE MARKS, At BOT. Foiled To Set NEE Bit' 
TMK Not Set After REAO REVERSE Into TAPE MARK' 



;et 



ict 



After 
After 



TMK Not 

TMK Not 

NO Data Tranr.ferrcd 

Data Compare Error, 



.ASCIZ 'Skip Tape Marks 



SPACE REVERSE Into TAPE MARK' 
READ t ORWARD Into TAPE MARK' 

On READ FORWARD' 

Dnta Read From Tape Not Equal To Written 



ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
WRITE SUBSYSTEM MEMORY COMMAND 



T30REST: 



036552 64$: 



T30RT2: 



T30RT3: 



SAVREG 

MOV 

MOV 

MOV 

CLR 

MOV 

MOV 

CLR 

MOV 

CLR 

MOV 

MOV 

MOV 

TST 

CMP 

BNt 

RTS 



SAVREG 

MOV 
MOV 
MOV 
CLR 
MOV 
CLR 
MOV 
CLR 
CLR 
RTS 

SAVREG 

MOV 

CLR 

CLR 

CLR 

CLR 

RTS 

ENDTST 



4?T30PACKt:r,Rl 

*100004.(R1)* 

*T30DATA,CRl)t 

(RD* 

010. .(RD* 

^JT30BFR,(Rl)f 

(Rl)» 

«20. ,(Rl)f 

(Rl). 

«0,(R1) 

<>24. .R2 

0177777. T30bFRCR2) 

-(R2") 

^0. .R2 

64$ 

PC 



*T30PK2.R1 

0100006, CRD* 

OT30BF2,(R1)* 

(RD* 

06. ,tRl)* 

CRD* 

OT30BF2.R1 

(Rl)f 

(Rl) 

PC 



0T30PK3.R1 

(RD* 

(Rl)» 

(Rl)^ 

(Rl) 

PC 



.SAVE THE REGISTERS 
START OF THE PACKET 
WRITE SUBSYSTEM MEN. WITH ACK . 
ADDRESS OF CHARAISTICS DATA BLOCK 
EXTENDED ADDRESS 
SIZE Of DATA BLOCK IN BYTES 
ADDRESS OF MESSAGE BUFFER 

.'LENGTH OF MESSAGE BUFFER 

SELECT DRIVE ZERO 

NUMBER OF LOCATIONS TO BE CLEARED 

ALL ONES TO MESSAGE BLJFFER 

NEXT LOCATION 

: CHECK R2 FOR DONE 
iKEEP GOING UNTIL DONE 
iRETURN 



SAVE THE REGISTERS 

START UF THE PACKET 

WRITE SUBSYSTEM MEM. WITH ACK . 

ADDRESS OF DATA BLOCK 

EXTENDED ADDRESS 

SIZE OF DATA BLOCK IN BYTES 

jPOINT TO DATA SEL AREA 



jRETURN 

SAVE REGISTERS 

SET UP POINTER ADDRESS 

COMMAND SPACE 
[ADDRESS OF DATA BLOCK 
I EXTENDED ADDRESS 
;SIZE OF DATA TRANSFER BLOCK 
I RETURN 

L10043: 



Tt-ST I MAROWAMt USl 1 6 TtbT MACRO Ml.^00 .'0 MAR 84 08*44 PAGF .^^i ?/ 
TUST ^: SKIP TAPt HARKS 



SFCi 0151 



16*>0 
189 V 
IfiV 
1895 
1894 
1895 

189/ 
1898 
1899 
1900 
1901 
190c? 

1903 
X908 
1909 
1910 
1911 
191? 
1915 
1914 
1915 
19i6 
1917 
1918 
191^ 
19?0 
19?1 

19?3 
19?4 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1954 
1935 
1956 
1957 



1958 
1950 
1940 
1941 
1942 
194 3 
1944 



041460 104401 



041462 
041462 
041462 
041470 
041474 
041500 
041506 



041512 



041512 
041512 
041512 
041514 
041520 
041524 
041550 
041556 
041542 
041544 
041544 
041550 



.SHTTl Tf'iV 3: NO-OP fCi.FAN TAPF ■' ) ANO INTTIAl l/\ 



TRAP C^FT^r 



THiS TFST VERIHtr. PROPER OPtRAFION Of iHf NO OP ( "CI FAN FAPF") ANO INIflAl I/F 
COMMAND (SPACE RbVFRSt. tRA^,F . WRITF DATm) 

THE TEST CONSIiiTb OF THE FOULOWTNO c" SUBTEST', 



012737 
012700 
004737 
012757 
005037 



006354 
046573 
016570 
000005 
045566 



002 W2 



002210 



BGNT5T 

MOV 
MOV 
J'^jR 
MOV 
CLH 



^PRTl.EPRTSW 
PTST51I0.RO 
PC. (5TSETUP 
♦5.L00PCNT 
T31CNT 



T3 
(PRIMARY ERROR 
iASCII message to identify TEST 
iDO INITIAL TEST SETUP 
iPFRFOfiM r, ITERATIONS 
I CLEAR TAPE RECORD COUNTER 



I 

T31L0OP! 



TEST 3. SUBTEST 1 



VERIHES THAT THE NO-OP COftWNO (CORRtSPONOS TO THE CLEAN TAPE 
COMMAND) TERMINATES PROPERLY (NORMAL TERMINATION). STORES PROPER 
STATUS IN THE MESSAGE BUFFER (LIKE THE GET STATUS COmAND). ANO 
INDEED DOES NOT MOVE TAPE. THE TAPE IS FIRST REWOUND AW 
WRITTEN WITH SEQUENCED TEST RECORDS. IT IS THEN REWOUND AGAIN 
ANO THE NO'OP COMMAND IS ISSUED. IT IS VERIFIED THAT THE TAPE 
IS STILL AT BOT ANO THAT PROPER STATUS IS STORED. THE FIRST 
RECORD ON TAPE IS READ AND VERIFIED (TO CHECK TAPE POSITION ANO 
VERIFT THAT DATA WAS NOT CH/INGEO). THEN THE NO-OP COMMAND IS 
ISSUED AGAIN ANO STATUS AND POSITION VERIFIED. 



BGNSUe 



!>>>>>>>>»>>> 



104402 
004757 
004757 
004757 
012757 
004737 
105426 

012727 
000000 



046640 
046752 

046774 
176750 
016054 



oooaso 



043372 



10*: 



JSR 


PC.T51REST 


JSR 


PC.T51RT2 


JSR 


PC.T51RT5 


MOV 


•65000. .T510LT 


JSR 


PC.SOFXNIT 


BCS 


20 1 


DELAY 


2S0 



BEGIN SueTESl 
T5.1: 

TRAP 
I SET COHMANO PACKET 
iSET UP OTHER COMMAND PACKET 
I SET IP OTHER COMMAND PACKET 
iSET UP DELAY COUNTER 
iDO INITIALIZE ON CONTROLLER 
iBR IF INIT WAS OK 
I DELAY ABOUT .25 SEC 



>>k>>>i>>k^^ 



ciBsue 



MOV 
.WORU 



d250»CPC)* 




l_ 1 



TtST 1 MARDg^Rf: T(-,t;t 1 H TKST MACRl) Ml POO .'0 HAF^ «4 OH '44 PA(,t t'^j .5H 
TL5T 3: NO-OP ("CLEAN TAPl") AND rNlTXAl,I/h 



1945 
l->46 

1947 
1951 
1952 



1953 
1954 
1955 
1956 
1957 
1961 
1962 



1963 

1964 
1965 
1966 
196/ 
1971 



1972 

1973 
1974 
1975 
1976 
1977 
1978 
1982 



1983 

1984 
1985 
1986 

1987 
1988 



041552 
041556 
041560 
041564 
041566 
041572 
041574 
041600 
041602 
041606 
041610 
041610 
041612 
041614 
041616 
041620 
041626 
0416S2 
041636 
041640 
041644 
041646 
041646 
041650 
041652 
041654 
041656 
041656 
041660 
041664 
041666 
041670 
041674 
041674 
041676 
041700 
O41702 
041704 
041704 
041706 
041712 
041714 
041720 
041722 
041724 
041750 
041750 
041732 
041754 
041756 
041740 
041740 
041742 
041750 
041756 
041762 
041766 



013727 
OOOOOO 
00536/ 
001575 
005367 
001567 
005537 
001556 
005257 
010001 

104455 
000455 
003646 
012114 
015737 
012704 
004 757 
105407 
005237 
010001 

104456 
000456 
005052 

012114 

104406 
004 757 
105407 
010004 
005257 

104456 
000457 
044724 
012126 

104406 
015701 
010102 
052702 
020102 
001406 
005257 

104456 
000460 
044575 
015554 

104406 
015757 
012757 
012 704 

012700 
004737 



O0.?116 
177772 
177756 
045?/? 
002214 



002174 043240 20*: 

043220 

010742 

002214 



011074 
002214 



043250 
000002 

002214 



234: 



30t: 



DF.C 
BNt 
INC 
MOV 
ERROF 



MOV 
MOV 
JSR 
BC5 
INC 
MOV 
ERRHRD 



CKLOOP 

JSR 
8CS 
MOV 
INC 
ERRHRD 



CKLOOP 



40i: 

003116 04354? 

140OO5 043340 65$: 

043540 

000144 

017502 



CKLOOP 

MOV 
MOV 
MOV 
MOV 
JSR 



T5lDLr 

lOi 

FATFLfi 

RO.RJ 

bRRNO.iiFIERR.SflMSO 



KNITN.TSIDSU 

«T31PACKET,R4 

PC.WRTCHR 

23» 

FATFLG 

RO.Rl 

ERRNO.WRTMSU.SFIMSG 



PC. REWIND 

301 

R0.R4 

FATFLG 

ERRN0,T31RWN.PKTSSR 



MOV 


T31BFr**6.Rl 


MOV 


R1.R2 


BIS 


♦eiTl.R? 


CMP 


R1,R2 


BEQ 


401 


INC 


FATFLG 


ERRHRD 


ERRN0.T31B0T.EXPREL 



FREE.T51WB 
*140005.T31PK3 
#T51PK5,R4 
«100. ,R0 
PC.FILLMEM 



Sr^> 0152 



MOV 
.WORD 
DEC 
BNf- 

Dec 

BNE 
iBUMP COUNTER 
I BR, IF COUNTER NOT DONE 

; ERROR COUNT 
iCONTENTS OF TSSR REGISTER 
J FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WO«D 
.WORD 
.WORD 

iSET UP UNIT NUMBER IN PACKET 
I SUBROUTINE NEEDS PACKET ADDRESS 
J ISSUE WRITE CHARACTERISTICS 
I BR, IF COMMAND ISSUED OK 

(ERROR COUNT 
J SAVE CONTENTS Of TSSR 
I WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 





. 4 
. -^0 



OKROf 
501 

SFTERR 
SFIMSG 



I LOOP IF 



(CALL 
»BR, 

jSET UP 



SELECTED 

TRAP 
TAPE REWIND COMMAND 
IF NO PROBLEM 

REWIND PACKET ADDRESS 
(ERROR COU^JT 
(REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 



CiERHRD 
302 

WRTMSG 
SFIMSG 

C»CLP1 



(LOOP TP SELECTED 

(PICK UP XSTO 

(SET UP EXPECTED 

(SET BOT BIT IN EXPECTED 

(DOES EXP - REC'D 

iBR. IF EQUAL (OK) 

(ERROR COUNT 
(TAPE NOT AT BOT AFTER 



TRAP 



CtERHRD 
505 

T31RWN 
PKTSSR 

C$CLP1 



REWIND 




TrtAP 


CIERHRO 


.WORD 


304 


.WORD 


T31B0T 


.WORD 


EXPREC 



(LOOP IF SELECTED 

TRAP C»CLPl 
(STARTING WRITE BUFFER ADDRESS 
(WRITE OATA.CVC-l.ACK COMMAND 
(SET UP R4 WITH PACKET ADDRESS 

(SET PATTERN IN CORRECT REGISTER 
(FILL MEMORY WITH RECORD iSIZE 



!)I 



TtST 1 HARDWARE. TFST 1 fl TLST MACHO Ml.^00 .^0 MAR.a4 08:4n PAGK ^5 59 
TLST 5: NO-OP ("CLEAN TAPL") AND rNlTIALI/E 



btCi 015^ 



19fl9 


041772 


012737 


000144 043346 


19'W 


042000 


010465 


000000 


1991 


042004 


004737 


016330 


1992 


042010 


016501 


000002 


1993 


042014 


012702 


000200 


199A 


O42O20 


020102 




•*^l^9Z 


012022 


001406 




.1 ^>96 


042024 


005237 


002214 


/.OOO 


042030 








042030 


104456 






042032 


000461 






042034 


045260 






042036 


012126 




2001 


042040 








042040 


1C4406 




2002 


042042 


004757 


011074 


2003 


042046 


105407 




2004 


042050 


010001 




2005 


042052 


005237 


002214 


2009 


042056 








042056 


104456 






042060 


000462 






042062 


044724 






042064 


015554 




2010 


042066 








042066 


104406 




2011 


042070 


013701 


043250 


2012 


042074 


010102 




2013 


042076 


052702 


000002 


2014 


042102 


020102 




2015 


042104 


001406 




2016 


042106 


005237 


002214 


2020 


042112 








042112 


104456 






042114 


000463 






042116 


0443~5 






042120 


015554 




2021 


042122 








042122 


104406 




2022 


042124 


012737 


041012 043340 


2023 


042132 


012704 


045340 


2024 


042136 


010337 


043346 


2025 


042142 


010465 


000000 


2026 


042146 


004737 


016350 


2027 


042152 


016501 


000002 


2028 


042156 


012702 


000200 


2029 


042162 


020102 




2030 


042164 


001406 




2031 


042166 


005237 


002214 


2035 


042172 








042172 


104456 






042174 


000464 






042176 


043573 






042200 


012126 




2036 


042202 








042202 


104406 




a037 


042204 


013701 


043250 



60$: 



230$: 



MOV 


0100. .T315/ 




(SET UP RECORD 5I/F IN 


PACKE T 




MOV 


R4.TSDB(R5) 




» ISSUE COMMAND 






J5R 


PC.WAITF 




iWAir FOR 5GR TO SET 






MOV 


TSSHCR5),R1 




iGET TSSR CONTENTS 






MOV 


055R.R2 




(SET UP EXPECTED 






CMP 


R1.R2 




jARF THFf FQ'JAl 






BEQ 


flO$ 




;0R. IF OK 






INC 


FATKLG 




(ERROR COUNT 






ERRHRD 


ERRN0,T31WDC, 


.PKTSSR 


I TSSR INCORRECT AFTER 1 


^RITE DATA 










TRAP 


CiERHR 










.WORD 


301. 










.WORD 


T31W0C 










.WORD 


PKT5SH 


CKLOCP 






(LOOP IF SELECTED 


TRAP 


C«CLP1 


JSR 


PC, REWIND 




(CALL TAPE REWIND COMMAND 




BCS 


250i 




;BR. IF NO PROBLEM 






MOV 


RO.Rl 




(SAVE TSSR 






INC 


FATFLG 




(ERROR COUNT 






ERRHRD 


ERRNO.TSIRWN, 


, EXPREC 


(REWIND NOT ACCEPTED 


TRAP 
.WORD 
.WORD 
.WORD 


C^ERMRi 
306 

T31RWN 
EXPREC 


CKLOOP 






(LOOP IF SELECTED 


TRAP 


CJCLPl 


MOV 


T31BrR»6.Rl 




(PICK UP XSTO 






MOV 


R1,R2 




(SET UP EXPECTED 






BIS 


♦8IT1,R2 




(SET BOT BIT IN EXPECTED 




CMP 


R1.R2 




(DOES EXP - REC'D 






BEQ 


240» 




(BR, IF EQUAL (OK) 






INC 


FATFLG 




(ERROR COUNT 






ERRHRD 


ERRN0.T31B0T, 


, EXPREC 


(TAPE NOT AT BOT AFTER 


REWIND 





2401 



280$: 



CKLOOP 

MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



CKLOOP 
MOV 



*O41012-T3iPK3 
♦T31PK3.r4 

R3,T31SZ 

R4.TS0B(R5) 

PC.WAITF 

TSSR(R5),R1 

#SSR,R2 

RI.R2 

260$ 

FATFLG 

ERRN0,T31RDF,PKTSSR 



(LOOP IF SELECTED 

(NO-OP. CVC-l COMMAND 
(SET UP R4 WITH PACKET 
(SET UP RECORD SIZE IN 
(ISSUE COMMAND 
(WAIT FOR SSR TO SET 
(GET TSSR CONTENTS 
(SET UP EXPECTED 
(ARE THEY EQUAL 
(BR, IF OK 

i ERROR CCKJHJ 
(TSSR INCORRECT AFTER 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 

ADDRESS 
PACKET 



CIERHRO 
307 

T31B0T 
EXPREC 

C$CLP1 



T31BFR*6,R1 



(LOOP IF SELECTED 
(PICK UP XSTO 



READ DATA 
TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



CJERHRD 
308 

T51R0F 
PKTSSR 

C$CLP1 



n 1 



TE-:ST 1 HARDWARh TEST 1-8 TtST MACRO MIPOO :.'0 MAR-tt4 08:44 PAGt ?5 40 
TEST 3: NO-OP ("CLEAN TAPC") AND INITIALIZE 



SEQ 0154 



2038 
?0?9 
2040 
2041 
2042 
2046 



2047 

2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2061 



2062 

2063 
2064 
2065 
2066 
2067 
2071 



2072 
2073 



2074 
2075 
2076 
2077 
2078 
2079 
2060 
2081 
2082 
2083 
2084 
2085 
2086 
2087 



042210 
042212 
042216 
042220 
042222 
^>42?26 
042226 
042230 
042232 
042234 
042236 
042236 
042240 
042246 
042252 
042260 
042264 
042270 
042274 
042300 
042302 
042304 
042310 
042310 
042312 
042314 
042316 
042320 
042320 
042322 
042326 
042332 
042354 
042336 
042342 
042342 
042344 
042346 
042350 
042352 
042352 
042352 
042352 
042354 
042362 
042364 
042370 



010102 
052702 
020102 
001406 
005237 

104456 
000465 
044375 
015554 

104406 
012737 
012704 
012737 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
000466 
043374 
012126 

104406 
017701 
012702 
020102 
001406 
005237 

104456 
000467 
043521 
015554 



104403 
023727 
103402 

004737 



000002 



002214 



285$ 



140001 
043340 
000144 
000000 
016330 
000002 
000200 



002214 



043340 
043346 



290$ 



140570 
000144 



002214 



330$ 



002214 
017262 



000017 



MOV 


R1,R2 


iSET UP EXPECTED 




BIS 


^BIT1.R2 


iSET BOT BIT IN EXPECTED 




CMP 


R1.R2 


(DOES EXP " REC'D 




BEQ 


285$ 


I BR. IF EQUAL (OK) 




INC 


FATFLG 


(ERROR COUNT 




ERRHRD 


ERRN0,T31B0T,EXPREC 


;TAPE NOT AT BOT AFTER REWIND 








TRAP 


CiERHRD 






.WORD 


309 






.WORD 


TSlBOr 






.WORD 


E>'PREC 


CKLOOP 




;L0OP IF SELECTED 








TRAP 


C$CLP1 


MOV 


*140001,T31PI<3 


jREAD.ACK.CVC-l COMMAND 




MOV 


*T31PK3.R4 


;SET UP R4 WITH PACKET ADDRESS 




MOV 


*100..T31SZ 


iSET UP RECORD SIZE IN PACKET 




MOV 


R4,TSDBCR5) 


I ISSUE COMMAND 




JSR 


PC.WAITF 


iWAIT FOR SSR TO SET 




MOV 


TSSR(R5).R1 


;GET TSSR CONTENTS 




MOV 


#S5R.R2 


;SET UP EXPECTED 




CMP 


R1,R2 


jARE THEY EQUAL 




BEQ 


290$ 


J BR, IF OK 




INC 


FATFLG 


J ERROR COUNT 




ERRHRD 


tRRN0.T31RDE,Pl<TSSR 


iTSSR INCORRECT AFTER READ DATA 








TRAP 


C$ERHRD 






.WORD 


310 






.WORD 


T31R0E 






.WORD 


PKTSSR 


CKLOOP 




;L0OP IF SELECTED 








TRAP 


CJCLPl 


MOV 


STREE.Rl 


;GET DATA READ 




MOV 


*100. ,R2 


I READ EXPECTED 




CMP 


R1.R2 


:OID TAPE STAY POSITIONED 




BEQ 


330$ 


J BR. IF EXPO - RECC 




INC 


FATFLG 


(ERROR COUNT 




ERRHRD 


ERRN0.T31WNG,EXPREC 


;TAPE DATA NOT CORRECT 








TRAP 


C$ERHRD 






.WORD 


311 






.WORD 


T31UNG 






-WORD 


EXPREC 


END SUB 




J >>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 






L 10051: 








TRAP 


C$ESUB 


CMP 


FATFLG. *15. 


(IS ERROR COUNT AT 25 




BLO 


999$ 


iBR. IF LESS THAN 25 




JSR 


PCCKDROP 


;TRY TO DROP THE UNIT 





999$: 

.'TEST 3. SUBTEST 2 



VERIFIES THAT THE INITIALIZE COMMAND OPERATES AS A NO-OP, 
ASSUMING NO MICROOIAGNOSTIC ERRORS ARE PRESENT (THEY WOULD 
ALREADY HAVE BEEN DETECTED IN PREVIOUS TESTS'). THE TEST 
SEQUENCE IS SIMILAR TO THAT USED IN SUBTEST 1. 



i" 1 1. 

TtST I • HARDWARE ff.ST 1-8 TtST MACRO M1200 :^0-MAR-84 08:44 PAGF. 25-41 
TEST 3: NO-OP ("CLEAN TAPU") AND INITIALIZE 



.EQ 



2086 
2089 
2090 
2091 



2092 
2093 
2094 
2095 
2096 
2097 
2101 
2102 



2103 
2104 
2105 
2106 
2107 
2111 
2112 



2113 

2114 
2115 
2116 
2117 



2122 

2123 

2124 
2125 
23 26 

2127 
2128 
2132 



2133 

2154 
2135 



042370 
042370 
042370 
042372 
042376 
042402 
042406 
042412 
042414 
042420 
042422 
042422 
042424 
042426 
042430 
042432 
042440 
042444 
042450 
042452 
042456 
042460 
042460 
042462 
042464 
042466 
042470 
042470 
042472 
042476 
042500 
042502 
042506 
042506 
042510 
042512 
042514 
042516 
042516 
042520 
042524 
042526 
042532 
042534 
042536 
042542 
042542 
042544 
042546 
042550 
042552 
042552 
042554 
042562 



104402 
004737 
004737 
004737 
004737 
103407 
005237 
010001 

104455 
000470 
003646 
012114 
013737 
012704 
004737 
103407 
005237 
010001 

104456 
000471 
005052 
012114 

104406 
004737 
103407 
010004 
005237 

104456 
000472 

044724 
012126 

104406 
013701 
010102 
052702 
020102 
001406 
005237 

104456 
000473 
044375 
015554 

104406 
013737 
012737 



BGNSUB 



046640 
046732 
046774 
016054 

002214 



002174 043240 20$ 

043220 

010742 

002214 



23$ 



MOV 
MOV 
JSH 
BCS 
INC 
MOV 
ERRHRD 



CKLOOP 



011074 



002214 



30$ 



043250 
000002 

002214 



40* 

003116 043342 
140005 043340 65$ 



>>>>>>>•>>>>> 



>>>>>>>>>>>> 



JSR 


PC,T31REST 


JSR 


PC,T31RT2 


JSR 


PC,T31RT3 


JSR 


PC.SOFINIT 


BCS 


20$ 


INC 


TATFLG 


MOV 


RO.Rl 


ERRDF 


ERRNO.SFIERR.SFIMSG 



UNITN.T310SW 

*T31PACKET,R4 

PC.WRTCHR 

23$ 

FATKLG 

RO.Rl 

ERRNO.WRTMSG.SFIMSG 



JSR 


PC. REWIND 


BCS 


30$ 


MOV 


R0.R4 


INC 


FATFLG 


ERRHRD 


ERRN0,T31RWN.PI<TSSR 



BEGIN SUBTEST 
T3.2: 

TRAP C$BSUB 

J SET COMMAND PACKET 

; SET UP OTHER COMMAND PACKET 

I SET UP OTHER COMMAND PACKET 

J DO INITIALIZE ON CONTROLLER 

;BR IF INIT WAS OK 

(ERROR COUNT 

iCONTENTS OF TSSR REGISTER 

; FATAL ERROR TSSR WAS NOT OK 

TRAP C$ERDF 
.WORD 312 
.WORD SFIERR 
.WORD SFIMSG 

;SET UP UNIT NUMBER IN PACKET 

i SUBROUTINE NEEDS PACKET ADDRESS 

tissue WRITE CHARACTERISTICS 

(BR, IF COMMAND ISSUED OK 
(ERROR COUNT 

(SAVE CONTENTS OF TSSR 

; WRITE CHARACTERISTISC FAILED 

TRAP C$ERHRD 
.WORD 313 
.WORD WRTMSG 
.WORD SFIMSG 

;L0OP IF SELECTED 

TRAP C$CLP1 

J CALL TAPE REWIND COMMAND 

;BR, IF NO PROBLEM 

;SET UP REWIND PACKET ADDRESS 
; ERROR COUNT 

J REWIND NOT ACCEPTED 







TRAP 


C$ERHRD 






.WORD 


314 






.WO**D 


T31RWN 






.WORD 


PKTSSR 


CKLOOP 




I LOOP IF SELECTED 








TRAP 


C$CLP1 


MOV 


T31BFR»6.R1 


(PICK UP X5T0 




MOV 


R1,R2 


(SET UP EXPECTED 




BIS 


^»6IT1.R2 


(SET BOT BIT IN EXPECTED 




CMP 


R1.R2 


(DOES EXP - REC'D 




BEQ 


40$ 


(BR, IF EQUAL (OK) 




INC 


FATFLG 


(ERROR COUNT 




ERRHRD 


ERRN0,T31B0T.EXPREC 


(TAPE NOT AT BOT AFTER REUiND 








TRAP 


C$ERHRD 






.WORD 


315 






.WORD 


T3ieOT 






.WORD 


EXPREC 


CKLOOP 




{LOOP IF SELECTED 








TRAP 


C$CLP1 


MOV 


FREE,T31WB 


(STARTING WRITE BUFFER ADDRESS 




MOV 


<^140005,T31PK3 


(WRITE DATA.CVC-l.ACK COMMAND 





GJ I 

resr l HARDW^Rt TJCST l-e test macro M1;?00 c^O MAR-64 08:44 PAGfc 25 42 
TEST 3: NO-OP ("CLEAN TAPE") AND INITIALIZE 



2136 


042570 


012704 


043340 


2137 


042574 


012700 


000144 


2138 


042600 


004737 


017502 


2139 


042604 


012737 


000144 043346 


2140 


042612 


010465 


000000 


2141 


042616 


004737 


016330 


2142 


042622 


016501 


000002 


2143 


042626 


012702 


000200 


2144 


042632 


020102 




2145 


042634 


001406 




2146 


042636 


005237 


002214 


2150 


042642 








042642 


104456 






042644 


000474 






042646 


045260 






042650 


012126 




2151 


042652 








042652 


104406 




2152 


042654 


004737 


011074 


2153 


042660 


103407 




2154 


042662 


010001 




2155 


042664 


005237 


002214 


2159 


042670 








042670 


104456 






042672 


000475 






042674 


044724 






042676 


015554 




2160 


042700 








042700 


104406 




2161 


042702 


013701 


043250 


2162 


042706 


010102 




2163 


042710 


052702 


000002 


2164 


042714 


020102 




2165 


042716 


001406 




2166 


042720 


005237 


002214 


2170 


042724 








042724 


104456 






042726 


000476 






042730 


044375 






042732 


Oi.5554 




2171 


042734 








042754 


104406 




2172 


042736 


012737 


041012 043340 


2173 


042744 


012704 


043340 


2174 


042750 


010337 


043546 


2175 


042754 


010465 


000000 


217C 


042760 


004737 


016330 


2177 


042764 


016501 


0O0002 


2178 


042/70 


012702 


000200 


2179 


042774 


020102 




2180 


042776 


001406 




2181 


043000 


005237 


002214 


2185 


043004 








043004 


104456 






043006 


0004 77 






043010 


043573 






043012 


012126 





80$ 



230$ 



fiov 

MOV 
JSR 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



CKLOOP 

JSR 
BCS 
MOV 
INC 
ERRHRD 



CKLOOP 



240$ 



CKLOOP 

MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



ftT31PK3,R4 

«100. .RO 

PC.FILLMEM 

<H00. .T31SZ 

R4,TSDBCR5) 

PC.WAITF 

TSSRCR5),R1 

flSSR.R2 

R1.R2 

80$ 

KATFLG 

ERRN0.T31WDC.PKTSSR 



PC » REWIND 

230$ 

RO.Rl 

FATELG 

ERRNO , T31RWN , EXPREC 



*041012.T31PK3 

#T31PK3,R4 

R3.T31SZ 

R4,TS0BCR5) 

PC.UAITF 

TSSR(R5),R1 

*SSR,R2 

R1.R2 

280$ 

FATFLG 

ERRNO. T31RDF.PKTSSR 



SEQ 0156 



SET UP R4 WITH PACKET ADDRESS 

;SET PATTERN IN CORRECT REGISTER 
FILL MEMORY WITH RECORD SIZE 
SET UP RECORD SIZE IN PACKET 
ISSUE COMMAND 
WAIT FOR SSR TO SET 
GET TSSR CONTENTS 
SET UP EXPECTED 
ARE THEY EQUAL 
BR. IF OK 

J ERROR COUNT 
INCORRECT AFTER WRITE DATA 



TSSR 

TRAP 
.WORD 
.WORD 
.WORD 

LOOP IF SELECTED 

TRAP 

CALL TAPE REWIND COr ^ANO 

BR. IF NO PROBLEM 

SAVE TSSR 

(ERROR COUNT 

REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 

316 

T31W0C 

PKTSSR 

C$CLP1 



MOV 


r31BFR*6.Rl 


* 


MOV 


R1.R2 


i 


BIS 


*eiTl.R2 


i 


CMP 


R1,R2 


. 


BEQ 


240$ 


. 


INC 


FATFLG 




ERRHRD 


ERRNO. T31B0T. EXPREC 


i 



LOOP IF SELECTED 

PICK UP XSTO 

SET UP EXPECTED 

SET BOT BIT IN EXPECTED 

DOES EXP - REC'O 

BR. IF EQUAL COK) 

J ERROR COUNT 
TAPE NOT AT BOT AFTER 



TRAP 



C$ERHRD 
317 

T31RWN 
EXPREC 

C$CLP1 



REWIND 




TRAP 


CIERHRD 


.WORD 


318 


.WORD 


T31B0T 


.WORD 


EXPR*iC 



LOOP IF SELECTED 

fp/^p C$CLP1 
INITIALIZE. CVC-1 COMMAND 
SET UP R4 WITH PACKET ADDRESS 
SET UP RECORD SIZE IN PACKET 
ISSUE COMMAND 
WAIT FOR SSR TU SET 
GET TSSR CONTENTS 
UP EXPECTED 
THEY EQUAL 
IF OK 

i ERROR COUNT 
iTSSR INCORRECT AFTER READ DATA 

TRAP C$ERHRD 
.WORD 319 
.WORD T31R0F 
.WORD PKTSSR 



SET 
ARE 
BR, 



TEST 1 HARDWARE TEST 1-8 TEST MACRO Hl?00 '^0 MAR-84 0H;44 



l-il L 

PAGt 25 45 



TEST 3: NO-OP ("CLEAN TAPE"-) AND INITIALIZE 



2186 

2187 
2188 
2189 
2190 
2191 
2192 
2196 



2197 

2198 
2199 
2200 
2201 
2202 
220:5 
2204 
2205 
2206 
2207 
2211 



2212 

2213 
2214 
2215 
2216 
2217 
2221 



2222 
2223 



2224 
2225 
2226 
2227 
2228 
2229 
2230 
2231 
2232 
2233 
2234 



043014 
043014 
043016 
043022 
043024 
043030 
043032 
043034 
043040 
043040 
043042 
043044 
043046 
043050 
043050 
043052 
043060 
043064 
043072 
043076 
043102 
043106 
043112 
043114 
043116 
043122 
043122 
043124 
043126 
043130 
043132 
043132 
043134 
043140 
043144 
043146 
043150 
043154 
0431S4 
043156 
043160 
043162 
043164 
043164 
043164 
043164 
043166 
043174 
043176 
043202 



043202 
043206 
043210 
043214 



104406 
01370: 
010102 
052702 
020102 
001406 
005237 

104456 
000500 
044375 
015554 

104406 
012737 
012704 
012737 
010465 
00- 737 
016501 
012702 
020102 
001406 
005237 

104456 
000501 
043374 
012126 

104406 
017701 
012702 
020102 
001406 
005237 

104456 
000502 
043440 
015554 



104403 
023727 
103402 
004737 



004737 
103002 
000137 



043250 
000002 

002214 



137756 
000144 



002214 



280$ 



CKLOOP 



MOV 


T31BPR*6.R1 


MOV 


R1.R2 


BIS 


*eiTl.R2 


CMP 


R1,R2 


BEQ 


285$ 


INC 


FATFLG 


ERRHRD 


ERRNO.TSIBOT.EXPREC 



285$ 



CKLOOP 



140001 043340 

043340 

000144 043346 

000000 

016330 

000002 

000200 



002214 



MOV 


*140001,T31PI<3 


MOV 


#T31PK3,R4 


MOV 


«100..T31SZ 


MOV 


R4,TSD8(R5) 


JSR 


PC.UAITF 


MOV 


TSSRCR5),R1 


MOV 


*SSR.R2 


CMP 


R1.R2 


BEU 


2901 


INC 


FATPLG 


ERRHRD 


ERRN0,T31RDE,PKTSSR 



290$ 



330$ 



002214 000017 
017262 

016536 
041512 



999$ 



ENDSUB 



CMP 
BLO 
JSR 



FATFLG. <>15. 
999 1 
PC.CKDROP 



163$ 



JSR 


PC.TSTLOOP 


BCC 


1631 


JMP 


T31L00P 


EXIT 


TST 



SEQ 0157 



b^T 
ARE 



MOV 


aTREE.Rl 


i 
t 


MOV 


#100. .R2 


• 


CMP 


R1,R2 


t 


BEQ 


330$ 


I 


INC 


FATFLG 




ERRHRD 


ERRNO , T31WNH . EXPREC 


• 



;LOOP IF SF.LECTED 

TRAP CSCLPl 

I PICK UP XSTO 

;SET UP EXPECTED 

:SET BOT BIT IN EXPECTED 

;DOES EXP ' REC'D 

J BR, IF EQUAL COK:; 

! ERROR COUNT 

i TAPE NOT AT BOT AFTER REWIND 

TRAP CIERHRO 
.WORD 320 
.WORD T31B0T 
.WORD EXPREC 
LOOP IF SELECTED 

TRAP C$CLP1 

REAO.ACK.CVC-1 COMMAND 

SET UP R4 WITH PACKET ADDRESS 

SET L^ RECORD SIZE IN PACKET 

ISSUE COMMAND 

WAIT v)R SSR TO SET 

GET T^SR CONTENTS 
UP EXPECTED 
THEY EQUAL 

BR, IF OK 

J ERROR COUNT 

TSSR INCORRECT AFTER READ DATA 

TRAP C$ERHRO 
.WORD 321 
.WORD T31R0E 
.WORD PKTSSR 

LOOP IF SELECTED 

TRAP C$CLP1 

GET DATA READ 

READ EXPECTED 

DID TAPE STAY POSITIONED 

BR, IF EXPD - RECD 
: ERROR COUNT 

TAPE POSITION NOT CORRECT AFTEO INIT 

TRAP C$ERHRO 
.WC^n 322 
.WOWu T51WNH 
.WORD EXPREC 

(>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 

L 10052: 

TRAP C$ESUB 
IS ERROR COUNT AT 25 
BR. IF LESS THAN 25 
TRY TO DROP THE UNIT 



jOO WE NEED TO ITERATE TEST 
I BR, IF NO LOOP REQUIRED 
t EXECUTE AGAIN 
;ALL DONE THIS TEST 



I I L 

TEST 1 HARDWARE TEST 1-8 TEST MACRO M1?00 l'O'MAR-84 08:4^ PAGE 25 44 
TEST 3: NO-OP ("CLEAN TAPE") AND INITIALIZE 



5255 
2256 
2237 
2241 
.'^242 
2243 
2244 
2245 
2246 
2247 
2248 
2249 
2250 
2251 
2252 
2253 
2254 
2255 
2257 
2259 
2260 
2261 
2262 
2263 
2264 
P268 
2269 
2270 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 
2262 
2283 
2284 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
229? 



043214 
043216 



043220 
043220 
043222 
043224 
043226 
043230 
043230 
043232 
043234 
043236 
043240 
04:J242 



043330 
043330 
043332 
043354 
043336 

043340 
043340 
043342 
043342 
043544 
043346 



043350 
043350 
043351 
043352 
043354 



043556 

043360 
043362 
043364 



043366 
043370 
043372 



1044 32 
003600 



100004 
043230 
000000 
000012 

043242 
000000 
000024 
000000 
000000 



043330 

100006 
0'i3350 
000000 
000006 



100005 

003116 
000000 
000000 



010 

200 

000000 

000000 



100205 
100605 
102205 
177777 



000000 
000000 
000000 



LOCAL STORAGE FOR THIS TEST 



T31PACKET: 

.WORD 
.WORD 
.WORD 
.WORD 

T51DATA: 

.WORD 
.WORD 
.WORD 
.WORD 

T31DSU: .WORD 

T31BFR: .BLKW 



100004 

T31DATA 



10. 

T31BFR 



20. 





25. 



URITE SUBSYSTEM MEMORY COMMAND PACKET 

.-<. fl0>6177770 
T31PK2: 





.WORD 


100006 




.WORD 


T31BF2 




.WORD 







.WORD 


6. 


T31PK3: 








.WORD 


100005 


T31RB: 






TSIWB: 


.WORD 


FREE 




. WORD 





T31SZ: 


.WORD 
.EVEN 





f3lBF2: 






T31BS0: 


.BYTE 


10 


T31BS1: 


.BYTE 


200 


T31S2; 


.WORD 





T31S3: 


.WORD 






.EVEN 
J TAPE MOTION PACKET COMMAND VALUES 



T31RN: .WORD 

T31W0R; .WORD 

T31C0N: .WORD 

.WORD 



T31CNT 
T31CNU 
T31DLY 



.WORD 
.WORD 
.WORD 



100205 
100605 
102205 
177777 









SFQ 0158 



TRAP 
.WORD 



C$F/Tr 
L 10050 - 



J COMMAND PACKET FOR TEST 

(WRITE CHARACTERISTICS COMMAND. WITH 

; ADDRESS OF CHARACTERISTICS BLOCK 

i STARTING VALUE OF BLOCK SIZE 
J CHARACTERISTICS DATA BLOCK 
J ADDRESS OF MESSAGE BUFFER 

J LENGTH OF MESSAGE BUFFER 

(SELECT DRIVE 
(MESSAGE BUFFER 



ACK 



(WRITE sue SYS MEM COMMAND, AND ACK 
(ADDRESS OF SELECT BLOCK DATA 

(SIZE OF DATA PACKET 



(REREAD COMMAND, AND ACK 
(ADDRESS OF WRITE BUFFER 
(SIZE OF BUFFER (EXTENT; 



BSELO AREA 
BSELl AREA 
SEL 2 AREA 
DATA AREA 



(REREAD DATA (NEXT) 
(REREAD DATA RETRY 
(WRITE CONTINOUS 
(END OF DATA 



(TAPE TIMER CO'JNTER STORAGE AREA 
(TAPE TIMER COUNTER STORAGE AREA 
(DELAY COUNTER 



Jl L 



Tt:ST 1 HARDWARE TfST 1-8 TEST MACRO M1200 :?0-MAR-84 08:44 PAGE 25-45 
TEST 3: NO-OP ("CLEAN TAPE") AND INITIALIZE 



SEQ 0159 



2293 

2300 
2301 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2328 
2329 

2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2338 
2339 
2340 
2341 
2342 
2543 
2344 
2345 
2546 
2547 
2548 
2349 
2350 
2351 
2352 
2353 
2354 



:LOCAL TEXT MESSAGES FOR TEST 



043574 
043440 
043521 
043573 
043642 
043737 
044021 
044071 
044146 
044227 
044263 
044375 
044470 
044570 
044647 
044724 
044773 
045046 
045115 
045170 
045260 
045333 
045406 
045461 
045550 
045632 
045714 
046002 
046070 

046211 
046266 
046373 
046476 
046573 



046640 
O46640 
046644 
046650 
046654 
046660 
046662 
046666 
046672 
046674 
O46700 
046702 



124 
124 
124 
124 
122 
120 
122 
124 
111 
122 
124 
124 
116 
122 
124 
122 
122 
124 
104 
124 
124 
103 
124 
127 
122 
122 
122 
122 
116 

124 
124 
i.24 
104 
116 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
012711 



123 
141 
141 
123 
105 
117 
111 
123 
154 
105 
123 
141 
117 
105 
123 
145 
101 
123 
162 
123 
123 
126 
123 
122 
145 
145 
145 
145 
117 

123 
123 

123 
141 
117 



123 
160 
160 
123 
122 
123 
102 
125 
154 
122 
123 
160 
055 
122 
123 
167 
115 
123 
151 
123 
123 
103 
102 
111 
141 
141 
163 
141 
055 

123 
123 
125 
164 
055 



045220 
100004 
045230 

000012 
043242 

000024 
000000 



T31RDE 
T31UNh 
T31WNG 
T31RDF 
T51RRF 
T31SC: 
T31L0R 
T31WDF 
T31L0G 
T31SSR 
T31W0E 
T31B0T 
T31TIM 
T31E0T 
T31TM: 
T31RWN 
T31RNC 
T31AM5 
T310FL 
T31WDD 
T31W0C 
T31VCK 
T31BA: 
T31USS 
T31L0N 
T31L0P 
T31PBP 
T31TRL 
T31NEF 

T51SCF 
T31TSA 
T51WRF 
T31DTA 
TST31ID 



ASCI/ ' TSSR Not Correct After READ Comnond' 

ASCIZ 'Tape Position Incorrect After INITIALIZE Command' 

ASrir 'Tape Position Incorrect After NOP Command' 

ASCIZ 'TSSR Incorrect After READ DATA Command' 

ASCIZ 'REREAD Previous (Space Reverse. Read Forward) Command Foiled' 

ASCIZ 'POSITION (Spac« Command) Failed, TSSR Not Correct' 

ASCIZ 'RIB NOT SET AFTER READ REVERSE INTO BOT' 

ASCIZ 'TSSR Not Correct After Illegal Mode Bits Set' 

ASCIZ 'Illegal Mode Bits. Failed To Set ILC Bit In XSTO' 

ASCIZ 'REREAD COMMAND lsk>t Accepted' 

ASCIZ 'TSSR Not Correct After NO-OP ("CLEAN TAPE") AND INITIALIZE Command. At BOT' 

ASCIZ 'Tape Not At BOT After REWIND Comff-and (BOT Not Set In XSTO)' 

ASCIZ 'NO-OP ("CLEAN TAPE") AND INITIALIZi ''S Erase Tape Not Long Enough' 

ASCIZ 'REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT' 

ASCIZ 'TSSR Not Correct After REREAD COMMAND Reject' 

ASCIZ 'Rewind (POSITION) Command Not Accepted' 

ASCIZ 'RAM Error. Correct Data Pattern Not In Ram' 

ASCIZ 'TSSR Init. Failed After REREAD COMMAND' 

ASCIZ 'Drive 7 Select Failed To Set "OFL" In TSSR' 

ASCIZ 'TSSR Not Correct After REREAD DATA Command, SUB B i t Set' 

ASCIZ ' TSSR Not Correct After REREAD DATA Command' 

ASCIZ 'CVC Set, Dldn''t Reset VCK In Message Buffer' 

ASCIZ ' TSBA Not Correct After REREAD DATA Command' 

ASCIZ 'WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)' 

ASCIZ 'Reading Long Record Failed To Set RLL Bit In XSTO' 

ASCIZ 'Reading Long Record Failed To Set RLS Bit In XSTO' 

ASCIZ 'Residual Byte Count Incorrect After Short Record Read' 

ASCI7 'Reading LcTig Record Failed To Give Tape Status Alert' 

ASCIZ 'NO-OP C"CLEAN TAPE") AND INITIALIZE, At First Record. Failed To Set RIB Bit 

ASCIZ ' TSSR Not Correct After SPACE RECORDS Command' 

ASCIZ 'TSSR Not Correct After NO-OP ("CLEAN TAPE") AND INITIALIZE, Into BOT' 

ASCIZ -TSSR Not Correct After NO-OP ("CLEAN TAPE") AND INITIALIZE Command' 

ASCIZ 'Data Compare Error, Data Read From Tape Not Equal To Written' 

.ASCIZ 'NO-OP ("Clean Tape") And INITIALIZE' 
EVEN 



ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
i WRITE SUBSYSTEM MEMORY COMMAND 



I SAVE THE REGISTERS 

1 START OF THE PACKET 

iWRITE SUBSYSTEM MEM. WITH ACK . 

(ADDRESS OF CHARAISTICS DATA BLOCK 

J EXTENDED ADDRESS 

(SIZE OF DATA BLOCK IN BYTES 

;AODRESS OF MESSAGE BUFFER 

t LENGTH OF MESSAGE BUFFER 

J SELECT DRIVE ZERO 



T31REST: 




SAVREG 




MOV 


*T31PACKET,R1 


MOV 


<^100004,(R1)* 


MOV 


#T31DATA,(Rl)i 


CLR 


(RD* 


MOV 


*10. ,(R1J» 


MOV 


«T31BFR,(R1)* 


CLR 


CRD* 


MOV 


«20. ,CRl)f 


CLR 


(Rl)t 


MOV 


ftO.(Rl) 



1/ ' 



^1 1. 



TEST 1 HARDWARE TEST 1-8 TEST MACRO M1200 u^0MAR-«4 06:44 PAGE 2b -46 
TEST 3: NO-OP C'CLEAN TAPE") AND INITIALIZE 



SEQ 0140 



2355 
2356 
2357 
2358 
2359 
2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
2368 
2369 
2370 
2371 
2372 
2373 
2374 
2375 
2376 
2377 
2373 
2379 
2380 
2381 
2382 



2383 
2384 
2385 
2386 
2387 
2388 
2389 
2390 
?391 
2392 
2395 
2394 
2395 
2396 
2397 
2398 
2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 



046706 
046712 
046720 
046722 
046726 
046730 

046732 
046732 
046736 
046742 
046746 
046752 
046754 
046760 
046762 
046766 
046770 
046772 
046774 
046774 
047000 
047004 
047006 
047010 
047012 
047014 
047016 
047016 
047016 



012702 000030 

012762 177777 043242 64Si 

005742 

022702 000000 

001371 

000207 



012701 
012721 
012721 
005021 
012721 
005021 
012701 
005021 
005011 
000207 



012701 
005021 
005021 
005021 
005011 
000207 



104401 



T31RT2 



043330 
100006 
043350 

000006 

043350 



T31RT3 



043340 



MOV 


V^24. ,R2 


HOV 


vn77777.T31BFRCR2) 


TST 


-CR2) 


CMP 


^?0,R2 


BNE 


64$ 


RTS 


PC 


SAVREG 




MOV 


V^T31PI<2.R1 


MOV 


#100006, CRD* 


MOV 


#T31BF2,CRD* 


CLR 


CRD* 


MOV 


#6. ,(RD* 


CLR 


CRD* 


MOV 


^T31BF2,R1 


CLR 


CRD* 


CLR 


CRD 


RTS 


PC 


SAVREG 




MOV 


<>T31PK3,R1 


CLR 


CRD* 


CLR 


CRD* 


CLR 


CRD* 


CLR 


CRD 


RTS 


PC 


ENDTST 





i NUMBER OF LOCATIONS TO BE CLEARED 

I ALL ONES TO MESSAGE BUFFER 

iNEXT LOCATION 

lAT END OF LOOP YET 

(KEEP GOING UNTIL DONE 

i RE TURN 



I SAVE THE REGISTERS 

I START OF THE PACKET 

jURITE SUBSYSTEM MEM. WITH ACK, 

;AD0RESS OF DATA BLOCK 

(EXTENDED ADDRESS 

J SIZE OF DATA BLOCK IN BYTES 

jPOINT TO DATA SEL AREA 



(RETURN 

I SAVE REGISTERS 

jSET UP POINTER ADDRESS 

(COMMAND SPACE 

(ADDRESS OF DATA BLOCK 

(EXTENDED ADDRESS 

(SIZE OF DATA TRANSFER BLOCK 

(RETURN 



L10050: 



.SBTTL TEST 4: Erase And Operation Incomplete 



TRAP 



C$ETST 



VERIFIES THAT AN ERASE COMMAND ISSUED WHEN THE TAPE IS 
POSITIONED AT BOT OPERATES PROPERLY AND ACTUALLY ERASES TAPE. 
THE FOLLOWING TEST SEQUENCE IS PERFORMED: 

1. THE TAPE IS FIRST REWOUND, SEVERAL TEST RECORDS ARE 
WRITTEN, AND THE TAPE IS REWOUND AGAIN. 

2. AN ERASE COMMAND IS ISSUED, WHICH SHOULD ERASE A NUMBER 
OF THE TEST RECORDS. 

3. NORMAL TERMINATION IS VERIFIED AND STATUS IS CHECKED 
CBOT SHOULD BE 0). 

4. A READ REVERSE COMMAND IS ISSUED. IT IS VERIFIED THAT 
THE COMMAND TERMINATES WITH TAPE STATUS ALERT. THAT THE 
REVERSE INTO BOT CRIB) STATUS BIT IS SET. AND THAT NO 
DATA IS TRANSFERRED. THIS DEMONSTRATES THAT NO DATA 
WAS ENCOUNTERED IN THE AREA ERASED BY THE ERASE 
COMMAND , 



L 1 1 



TtST 1 HARDWARt-: TKST 1-8 ^EST MACRO H1200 JO MAR-84 08:44 PAGt ^5-4? 
TEST 4: f.RASE AND OPbRATION INCOMPLETE 



SEQ 0141 



2410 
2411 
2412 
2415 
2414 
2415 
2A16 
^Ml? 
2418 

2419 

2124 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
243" 
243.'; 
24 3i' 
243!> 
24iS 
243? 

2-- .> f 

2- 1' 

S^-ll 

2442 

2443 

2444 

2445 



2446 
2447 
2448 
2449 
2450 
2451 
2452 



2453 

2454 
2455 
2459 
2460 



047020 
047020 
047020 
047026 
047032 
047056 
047044 



047050 



047050 
047050 
04 7050 
047052 
047056 
047062 
047066 
047074 
047100 
047102 
047102 
047106 
047110 
047114 
047116 
04 7122 
047124 
047130 
047132 
047136 
047140 
047144 
047146 
047146 
047150 



012737 
012700 
004737 
012737 
005037 



104402 
004737 
004737 
004737 
012737 
004737 
103426 

012727 
OOOOOO 
013727 
OOOOOO 
005367 
001375 
005367 
001367 
005337 
001356 
005237 
010001 

104455 
000621 



THE TEST CONSISTS OF THE FOLLOWING 3 SUBTESTS 



BfiNTST 



006354 002172 

052670 

016570 

000005 002210 

051540 



MOV 


<^EPRT1,EPRTSW 


MOV 


<?TST32ID.R0 


JSR 


PCTSTSETUP 


MOV 


frS.LOOPCNT 


CL.T 


T32CNT 



T4: : 
PRIMARY ERROR MESSAGF 
ASCII MESSAGE TO IDENTIFY TEST 
DO INITIAL TEST SETLtP 
PERFORM 5 ITERATIONS 
CLEAR TAPE RECORD COUNTER 



TEST 4. SUBTEST 1 



VERIFIES THAT A Erase And Operation Incomplete COMMAND ISSUED WHILE 
THE TAP-;^ IS POSITIONED AT BOT CAUSES FUNCTION REJECT 
TERMINATION. WITH THE NON-EXECUTABLE FUNCTION CNEF) 
ERROR BiT SET. 



T32LO0P: 



BGNSUB 



052730 

053022 

053052 

176750 051544 

016054 



000250 
002116 
1/7772 
177756 
051544 
002214 



10 s 



JSR 


PC.T32REST 


JSR 


PC. T32RT2 


JSrt 


PC,T32RT3 


MOV 


«65000. .T32DLY 


JSR 


PC.SOFINIT 


BCS 


20 i 


DELAY 


250 



ji>>>i>>>>>>> BEGIN SUBTEST 

T4.1: 

TRAP 
iSET COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 
J SET UP OTHER COMMAND PACKET 
:SET UP UFLAY COUNTER 
;D0 INITIALIZE ON CONTROLLER 
jBR if INIT WAS OK 
J DELAY ABOUT .25 SFX 



>%>>>>>>>>>> 



C^BSLie 







MOV 


^250,(PC)> 






.WORD 









MOV 


LJDLY.tPO* 






.WORD 









DEC 


-6(PC) 






eNE 


. -4 






Dtr: 


-22CPC) 






BNE 


.-20 


DuC 


T32DLY 


;nL>MP COUNTER 




BNE 


10$ 


;BR. IF COiJNTER NOT DONE 




INC 


FATFLG 


(ERROR COUNT 




MOV 


RO.Rl 


; CONTENTS OF TSSR REGISTER 




LRPDF 


CRRNU.SFIERR.SFIMSG 


I FATAL ERROR TSSR WAS NOT OK 








TRAP 


C$ERDF 






.WORD 


401 



Tt:ST 1 HARDWARF. TEST 1-8 T£ST MACRO H1.200 20 MAR-84 08:44 PAGF. 25-48 
TtST 4: ERASE AND OPFRMTION INCOMPLETt 



SEQ 0X42 



2461 

2462 
2463 
2464 
2465 
2469 
2470 



2471 

24 72 
2473 
24 74 
2475 
2476 
2480 



2481 

2482 
2483 
2484 
2465 
2486 
2487 
2468 
2489 
24 >0 
24n 
24' )2 
2493 
2497 



2498 

2499 
25O0 
2501 
2502 
2503 
2504 
2505 
2506 
2510 



047152 
047154 
047156 
04 7164 
047170 
047174 
047176 
047202 
04 7204 
047204 
047206 
047210 
047212 
047214 
047214 
047216 
047222 
04 7224 
047226 
047232 
047236 
047236 
04 ^240 
047242 
047244 
047246 
047246 
04 7250 
047254 
047262 
047270 
047274 
047300 
047304 
047310 
047314 
047320 
047322 
047324 
047330 
047330 
047332 
047334 
047336 
047340 
047340 
047342 
047544 
04 7350 
04 7552 
047356 
047360 
04 7364 
047366 
047372 
04 7372 
047374 



003646 
012114 
013737 
012704 
004737 
103407 
005237 
010001 

104456 
000622 
005052 
012114 

104406 
004737 
105411 
010004 
016501 
005257 

104456 
000623 
051730 
012126 

104406 
012703 
013757 
012737 
012704 
010357 
0104S5 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
000624 
052566 
012126 

104406 
005723 
020327 
001351 
004737 
103411 
016501 
010004 
005237 

104456 
000625 



002174 
051360 
010742 

002214 



051400 20$ 



011074 



000002 
002214 



001002 
011074 
000002 
002214 



25S 



26$ 



000400 

003116 051502 

140005 051500 

051500 

051506 

000000 

016330 

000002 

000200 



002214 



27$ 



MOV 
MOV 
JSR 
BC5 
INC 
MOV 
ERRHRD 



CKl.OOP 

JSR 
BCS 
MOV 
MOV 
INC 
ERRHRD 



CKLOOP 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRO 



26$ 



UNITN,T32DSW 

^T32PACI<FT,R4 

PC.WRTCHR 

25$ 

FATFLG 

RO.Rl 

ERRNO.WRTMSG.SFIMSG 



PC, REWIND 

26$ 

R0,R4 

TSSR(R5),R1 

FATFLG 

ERRNO , T32RWN , PKTSSR 



c?.se, ,R3 

FREE.T32WB 

0140005. T32PK3 

*T32PK3,R4 

R3.T32SZ 

R4,TS08CR5) 

PC.WAITF 

TSSR(R5),R1 

#SSR.R2 

Rl,R2 

28$ 

FATFLG 

ERRNO, T32W0C, PKTSSR 



.WORi: SFIERR 
.WORD 'iFIMSG 

SET UP DRIVE NL»MBER 

SUBROUTINE NEEDS PACKET ADDRESS 

ISSUE WRITE CHARACTERISTICS 

BR, IF COMMAND ISSUED OK 
; ERROR COUNT 

SAVE CONTENTS OF TS5R 

WRITE CHARACTERISTISC 



FAILED 
TRAP 
. WORD 
. WORD 
.WORD 

iLOOP IF SELECTED 

TRAP 

J CALL TAPE REWIND COMMAND 

:BR. IF NO PROBLtM 

[SET UP REWIND PACKET ADDRESS 

[GET TSSR CONTENIS 

{ERROR COUNT 

i REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
40."- 
WRTMSt^ 
SFIMSG 

C$CLP1 



LOOP IF SELECTED 



TRAP 



STARTING RFXORD SI7E 

STARTING WRITE BUFFER ADDRESS 

WRITE OATA,CVC-i,ACK COMMAND 

SET UP R4 WITH PACKET ADDRESS 

SET UP RECORD SIZE IN PACKET 

ISSUE COMMAND 

WAIT FOR SSR TO SET 

GET TSSR CONTENTS 

SET lip EXPECTED 

ARE THEY EQUAL 

BR. IF OK 

J ERROR COUNT 
TSSR INCORRECT AFTER WRITE DATA 



CJERHRD 
403 
T32RWN 
PKTSSR 

C$CLP1 







TRAP 


C$ERHRD 






.WORD 


404 






.WORD 


T52WDC 






.WORD 


PKTSSn 


CKLOOP 




jLOOP IF SELECTED 








TRAP 


CJCLPl 


TST 


(R3)<- 


(BUMP RECORD COUNTER 




CMP 


R3,0514. 


lAT MAX SIZE YET 




BNE 


27$ 


I BR. IK NOT Al END OF LOOP 




JSR 


PC. REWIND 


J CALL TAPE REWIND COMMAND 




BCS 


30$ 


iBR. IF NO PROBLEM 




MOV 


TSSR(R5).R1 


iGET TSSR CONTENTS 




MOV 


R0,R4 


iSET UP REWIND PACKET ADDRESS 




INC 


FATFLG 


; ERROR COUNT 




ERRHRD 


ERRNO, T32RWN, PKTSSR 


[REWIND NUT ACCEPTED 





TRAP 
.WORD 



C$tRHRD 
405 



M 1. 1 



TE:ST 1 - HARDWARE TEST 1-8 TEST MACRO M1200 
TEST 4: ERASE AND OPERATION INCOMPLETE 



30$ 



;;;0-MAR-e4 08:44 PAtiE 25-49 



SEQ 0143 





047376 


051730 






04 7400 


012126 




2511 


047402 








04 7402 


104406 




251^ 


047404 


013701 


051410 


2513 


047410 


010102 




2514 


047412 


052702 


000002 


2515 


047416 


020102 




2516 


047420 


001406 




2517 


047422 


005237 


002214 


2521 


047426 








047426 


104456 






047430 


000626 






047432 


052416 






047434 


015554 




2522 


047436 








047436 


104406 




2523 


047440 


012737 


140411 051500 


2524 


047446 


012704 


051500 


2525 


047452 


010465 


000000 


2526 


047456 


004737 


016330 


2527 


047462 


016501 


000002 


2528 


047466 


012702 


000200 


2529 


047472 


020102 




2550 


047474 


001406 




2531 


047476 


005237 


002214 


2535 


047502 








047502 


104456 






047504 


000627 






047506 


052046 






047510 


012126 




2536 


047512 








047512 


104406 




2537 


047514 


013701 


0514V0 


2538 


047520 


010102 




2539 


047522 


042702 


000002 


2540 


047526 


020102 




2541 


047530 


001406 




2542 


047532 


005237 


002214 


2546 


047535 








04753';> 


104456 






047540 


000630 






04 7542 


052416 






047544 


015554 




2547 


047546 








047546 


104406 




2548 


047550 


013737 


00311 S 051502 


2549 


047556 


012737 


140401 051500 


2550 


047564 


012737 


00040D 051506 


2551 


047572 


012704 


051503 


2552 


04 7576 


010465 


000003 


2553 


047602 


00473 7 


01633 3 


2554 


047606 


016501 


00000 ? 


2'-v55 


047612 


012702 


10020 a 


:>^':'i. 


017616 


020. 02 




•37 


047620 


001406 




.,:>a 


0'' ""622 


005257 


002214 



40$ 



50$ 



55$ 









.WO^D 


T.32RUN 








. WORD 


PKISSR 


CKLOOP 






jLOOP IF SELECTED 

TRAP 


C$CLP1 


MOV 


T32BFRf6,Rl 




;PIC1< UP XSTO 




MOV 


R1,R2 




I SET UP EXPECTED 




BIS 


^?BIT1.R2 




iSfcT BOT BIT IN EXPECTED 




CMP 


H1,R2 




iDOC'^ EXP « REC'D 




BEQ 


40$ 




jRR. /.: EQUAL COlO 




INC 


KATKLG 




; ERROR COUNT 




ERRHRO 


ERRN0,T32B0E 


EXPREC 


. ':.. AT BOT AFTER ERASE 

TRAP 
.WORD 
.WORD 
.WORD 


C$ERHRD 
406 
T32B0E 
EXPREC 


CKl OOP 






jLOOP IF SFLECTED 

TRAP 


C$CLP1 


MOV 


^140411, T32PK3 


; ERASE TAPE .CVC-1 , ACK COMMAND 




MOV 


dT32PI<3.R4 




(SET UP R4 WITH PACKET ADDRESS 




MOV 


R4.TSDBCR5) 




; ISSUE COMMAND 




JSR 


PC.UAITF 




;WAIT F^OR SSR TO SET 




MOV 


TSSRCR5),R1 




;GET TSSR CONTENTS 




MOV 


tfSSR.R2 




;SET UP EXPECTED 




CMP 


R1.R2 




;rtRE THEY EQUAL 




BEQ 


50$ 




I BR. IF OK 




INC 


FATFLG 




; ERROR COUNT 




ERRHRD 


ERRN0,T32ERA 


PKTSSR 


I TSSR INCORRECT AFTER ERASE DATA 








TRAP 


CJERHRD 








.WORD 


407 








.WORD 


T32ERA 








.WORD 


PKTSSR 


CKLOOP 






jLOOP IF SELECTED 

TRAP 


C$CLP1 


MOV 


732BFRf6,Rl 




iPICK UP XSTO 




MOV 


R1,R2 




{SET UP EXPECTED 




BIC 


<^eITl.R2 




iSET BOT BIT IN EXPECTED 




CMP 


R1.R2 




iOOES EXP • REC'D 




BEQ 


55$ 




I BR. IF EQUAL COK) 




INC 


FATFLG 




: ERROR COUNT 




ERRHRD 


ERRNO.TSaBOE 


EXPRE'^ 


iTAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 


OERHRD 
408 
T32B0E 
EXPREC 



CKLOOP 



LOOP IF SELECTED 



TRAP 



MOV 


FREE,T32RB 


MOV 


#140401. T32PK3 


MOV 


*256. ,T32SZ 


MOV 


0T32PK3.R4 


MOV 


R4.TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5).R1 


MOV 


<^SSR!SC.'BIT2.R2 


CMP 


R1.R2 


BEQ 


180$ 


INC 


FATFLG 



[ADDRESS OF BUFFER 
{READ PEVERSE, ACK, CVC-1 COMMAND 
tSET I THE SIZE OF RECORD 
(SET L. R4 WITH PACKET ADDRESS 

ISSUE COMMAND 

WAIT FOR SSR TO SET 

GET TSSR CONTENTS 

SET UP EXPECTED TAPF 

ARE THEY EQUAL 
jBR, IF OK 

J ERROR COUNT 



CiCLPl 



STATUS ALERT 






Tt-Sr 1 HAROWARl TKST IM T( ST MACMU MUH>0 ^'0 Hmr H<1 OHj44 PA(if ,>*i SO 
TtST 4: eRASK AND OPtRATION INCUMPl t Tt 



SF/i 0144 



'56^ 



^56? 
r'-.64 
,^566 
^568 
2573 



^574 

2575 



25/6 
2577 
2578 
25 79 
2580 
25fcl 
258? 
2583 
2584 
2585 
258t. 
258 7 
2588 
2589 
2590 
2591 
2592 
2595 
2594 
2595 
2596 
259^ 
259H 
2599 
2600 
2601 
2602 
2605 
2604 
2605 
2606 
2607 
2608 
2609 
2610 



047626 
04 7626 
04 7650 
04 7632 
047634 
'^7636 
04 7656 
04 7640 
047644 
04 7646 
04 7652 
04 7654 
047656 
047662 
047662 
04 7664 
047666 
04 7670 
04 7672 
047672 
04 7672 
0476 72 
04/674 
047 702 
047704 
0^7710 



104456 
000631 
052541 
012126 

104406 

013701 
010102 
052702 
020102 
001406 
005237 

104456 
000632 
052166 
015554 



104405 
023727 
103402 
004737 



(R^iHRO f^RRN0.TT2TSA.Pl<T'..';R 



051416 
000001 



002214 



laoJ: CKi.OOP 

MOV 
MOV 
BI', 
CflP 
BFQ 
INC 
ERRHRO 



T52B^R»14,Rl 

RI.R2 

Wiro,H2 

R1,R2 

1901 

FATFLG 

tRRN0,T32RIB,EXPRtC 



I rssR iNcoRRtxr Af rtw 



ll OOP I» SM KTHy 

lOf T XST5 5TAru5 WORD 

I'jtl UP hXPtCTtD 

iShT THt. RIB BIT 

jARF T»*:t FOUAl 

I BR, If tUUAl (f,000> 
iFRROR COfNT 

(RIB SHOULD Be: ShT 



RtAt) DATA 
TRAP 

.UORL) 
.WiRD 

TRAP 



CItRHRO 
409 

T',;:'r'>A 
PKTS'.P 

CICLPI 



I90i: 



TRAP 
.WORD 
.UQPO 
.WORD 



ClfcRHRD 
410 
T52RIB 
tXPRtC 



002214 000017 
0X7262 



999$! 



tfCJUB 



CMP 
BLO 
JSR 



FATrLG.«15. 

S'991 

PC.CKDROP 



I 10054: 

TRAP 
I I I ERROR C(>JNT AT ?5 
iBR» I^ I fiO THAN 25 
jTRV TO DROP THE UNIT 



ClEbi^B 



TEST 4. SUBTEST 



VERIFIES THAT AN ERASE COMMAND EXECUTED WKN THt TAPE IS NOT 
POSITIONCD AT BOT OPERATES PROPERLY AND DOES NOT CORRUPT 
PREVIOUS TAPE RECORDS. THE TEST SEQUENCE IS: 

1. THE TAPE 15 FIRST REWOUND. SEVERAl. TEST RECORDS ARE 
WRITTEN. ANO THE TAPE IS REWOUND AGAIN. 



2. 



3. 



5, 



A SPACE RECORDS FORWARD COMMAND IS ISSUED TO HOVE 
TAPE OFF Of BOT ANO SKIP OVER THE FIRST SEVERAl 
RECORDS. 



THE. 



AN ERASE COMMAND IS ISSUED. WHICH SHOULD ERASE A NUMBER 
OF THE TEST RECORDS. 

NORMAL TERMINATION IS VEWIFIFP ANO STATU^i IS CHECKED. 

A READ REVERSE COMr.ANO IS ISSUED. IT IS VERIFIED THAT 
NORMAL TERMINATION IS ACCOMPLISHED AND THAT THE DATA 
TRANSFERRED CORRESPONDS TO THAT FOR THE EXPECTED 
RECORD. THIS DEMONSTRATES THAT NO DATA WAS ENCOUNTfcREU 
IN THE AREA ERASED Bt THE ERASE COMMAND, AND THAT The 
PREVIOUS RECORD WAS NOT CORRURTED, 



TtsT I HAMl)WAPl IK'. I 1 M TtSl r\l\Cfh) Hl.HH) .'0 MAR «4 08:4/1 PAtit !-■*> ') I 
rtST 4: tRASt: AND OPfcRATTON INCOMPl t:Tt 



'jF-'i 014^. 



2614 



J616 
^619 
2620 
2624 
2625 



2626 
2627 
2628 
2629 

2630 
2634 
2635 



2636 

2637 
2638 
2639 
2640 
2644 



2645 

2646 
2647 
2645 
2649 
2650 
265 i 
2655 



2656 

2657 
2658 



04/ao 

047710 
047710 
047 '12 
047716 
047722 
047726 
047732 
047734 
047740 
047742 
04 7742 
047744 
047746 
047750 
04 7752 
047760 
047764 
047770 
047772 
047776 
050000 
050000 
05O002 
050004 
050006 
050010 
050010 
050012 
050016 
050020 
050022 
050026 
050026 
050030 
050052 
05005^ 
050036 
050056 
050040 
050044 
050046 
050052 
050054 
050056 
050062 
050062 
050064 
050066 
050070 
050072 
050072 
050074 
050100 



10440? 
004737 
004737 
004737 
004737 
103407 
005237 
010001 

104455 
000633 

005646 
012114 
013737 
012704 
004737 
103407 
005237 
010001 

104456 
000654 
005052 
012114 

104406 
004737 
105407 
010004 
005257 

10445c 
000635 
051750 
012126 

104406 
015701 
010102 
052702 
020102 
001406 
005237 

104456 
000656 
05154b 
015554 

104406 
012703 
010500 



t 
1 
I - 



052730 
055022 
053052 
010054 

002214 



002174 
051560 
010742 

002214 



051400 20 »! 



23$ 



011074 
002214 



30 1 



Ob 1410 
000002 

002214 



40»! 



BliNS'JH 



JSH 


PC,T52RfT>T 


JSR 


PC.T52RTc' 


JbR 


PC.r52HT5 


JSR 


PC.SOf INIT 


BCb 


20$ 


INC 


FAFFi 1. 


MOV 


'10, Ri 


f.RRDF 


t:RRNO , SF IKRR , SF IMSG 



MOV 


UNITN.T32DSW 


MOV 


*T32PACKET.R4 


J5R 


PC.WRTCHR 


BC5 


23$ 


INC 


FATFLG 


MOV 


RO.Rl 


ERRHRD 


ERRNO.WRTNSG.SFIMSG 



CKLOOP 

JSR 
BCS 
MOV 
INC 
ERRHRD 



CKLOOP 



000144 



CKLOOP 

MOV 
MOV 



PC, REWIND 

30$ 

R0.R4 

FATKLG 

ERRNO.T32RWN,PKTS5R 



MOV 


T32BFR»f^,Rl 


MOV 


Rl.fl2 


BIS 


^IT1.R2 


CMP 


R1,R2 


BFQ 


40$ 


INC 


FATFLG 


ERRHRD 


ERRN0.T32B0T.EXPRtC 



,>>>>.>,,>>,> BFGIN MJBTK^T .>>>. 

T4.2: 

TRAP C$P'^IJB 

i'AT COMMAND PACKET 

I'jET UP OTHER COMMAND PACKf I 

I St T UP OTMEF* COMMAND PACKf- T 

iDO INITIALIZE ON CONTROl lER 

(BR IF INIT WAS OK 

J ERROR COUNT 

(CONTENTS OF TSSR REGISTER 

(FATAL ERROR TSSR WAS NOT OK 

TRAP CIERDF 
, WORD 4 1 1 
.WORD SFIERR 
.WORD 5FIMSG 

(SET UP UNIT NUMBER IN PACKET 

(SUBROUTINE NEEDS PACKET AOORtbS 

(ISSUE WRITE CHARACTERISTICS 

(BR, IF CaiMANO ISSUED OK 
(ERROR CO»JNT 

( _.AVE CONTENTS OF TSSR 

(WRITE CHARACTERISTISC 



FAILED 




TRAP 


C«ERHRO 


.WORD 


412 


.WORD 


WRTMSG 


.WORD 


SFTMSG 



(LOOP IF SELECTED 

TRAP 
(CALL TAPE REWIND C0^♦1AND 
(BR. IF NO PROBLEM 
(SET UP REWIND PACKET 

(ERROR COUNT 
(REWIND NOT ACCEPTED 



C$CLP1 



ADDRESS 



0100. ,R3 
Ri.RO 



(LOOP IF SELECTED 

(PICK UP XSTO 

(SET UP EXPECTED 

(SET BOT BIT IN EXPECTED 

(DOES EXP - REC'D 

(BR. IF EQUAL (OK) 

(ERROR CO<-WT 
(TAPE NOT AT BOT AFTER 



il OOP IF SELECTED 

(STARTING RECORD SUE 
iSET UP MEMORY FILL 



TRAP 

.WORD 
.WORD 
.WORD 

TRAP 



C$ERHRO 
413 

T?2RWr4 
PKTSSR 

CJCLPl 



REWIND 




TRAP 


C$ERHRD 


.WORD 


414 


.WORD 


T32B0T 


.WORD 


EXPREC 



TRAP 



CJCUPl 



i)l 



Test I MAROwARe Tt-ST 1-rt TLf>T MACRO Ml.-»0O .,'0 M/\n-ft4 Ofi:44 PAGt. .^^i Si^ 
TliST 4: FRASE AND OPERATION INCOMPl tTt 



SFQ 0146 



2659 
2600 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
2669 
2670 
2671 
2672 
2676 



2677 

2678 
2679 
2680 
2681 
2682 
2683 
2684 
2688 



2689 

2690 
2691 
2692 
2693 
2694 
2695 
2699 



2700 

2701 
2702 
2705 
2704 

2705 
2706 
2707 
2708 
2709 



050102 
050106 
050114 
050122 
050126 
050130 
050134 
050140 
050144 
050150 
050154 
050160 
050162 
050164 
050170 
050170 
050172 
050174 
050176 
050200 
050200 
050202 
050204 
050210 
050212 
050216 
050220 
050222 
050226 
050226 
050230 
050232 
050234 
050236 
050236 
050240 
050244 
050246 
050252 
050254 
050256 
050262 
050262 
050264 
050266 
050270 
050272 
050272 
050274 
050300 
050304 
050312 
050316 
050322 
050326 
050332 
050336 



00475/ 
013737 
012737 
012704 
010500 
004737 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
000637 
052566 
012126 

104406 
005725 
02052? 
001541 
004757 
105407 
010001 
005237 

104456 
000640 
051750 
015554 

104406 
015701 
010102 
052702 
020102 
001406 
005257 

104456 
000641 
051546 
015554 

104406 
012705 
004737 
012757 
012704 
010465 
004757 
016501 
012702 
020102 



01750P 
003116 
140005 
051500 

017502 
051506 
000000 
016530 
000002 
000200 



002214 



000156 
011074 

002214 



051410 
000002 

002214 



051502 
051500 65$ 



vJSR PC. FILLMF.M 

MOV f-REE,T32WB 

MOV #140005, T32PK3 

MOV 0T32PK3.R4 

MOV R3.R0 

JSR PC.FILLMFM 

MOV R3,T32SZ 

MOV R4,TGDB(R5) 

JSR PC.WAITF 

MOV TSSR(R5).R1 

MOV dSSR,R2 

CMP R1.R2 

BFQ 80i 

INC FATFLG 

ERRHRD ERRN0,T32W0C,PKTSSR 



80$ 



230$: 



240$: CKLOOP 

000001 MOV 
010544 JSR 
140411 051500 265$: MOV 
051500 MOV 
000000 MOV 
016330 JSR 

000002 MOV 
000200 MOV 

CMP 



CALL MEMORr ULLF.R 

STARTING URITE BUFFER ADDRESS 

WRITE DATA.CVC-l.ACK COMMAND 

SET UP R4 WITH PACKET ADDRESS 

SET PATTERN IN CORRECT REGISTER 

FILL MEMORY WITH RECORD '^IZE 

SET UP RECORD SIZE IN PACKET 

ISSUE COMMAND 

WAIT FOR SSR TO SET 

GET TSSR CONTENTS 

SET UP EXPECTED 

ARE THEY EQUAL 

BR, IF OK 

J ERROR COUNT 
tTSSR INCORRECT AFTER WRITE DATA 









TRAP 


CIERHRD 








.WORD 


415 








.WORD 


T32W0C 








.WORD 


PKTSSR 


CKLOOP 




iLOOP IF SELECTED 


TRAP 


C$CLP1 


TST 


(R3)* 


iBUMP RECORD SIZE COUNTER 




CMP 


R3,0110. 


lAT 160 SIZE YET 






BNE 


65$ 


;BR, IF MORE RECORDS TO 


WRITE 




JSR 


PC. REWIND 


I CALL TAPE REWIND COMMAND 




6C5 


230$ 


iBR. IF NO PROBLEM 






MOV 


RO.Rl 


(SAVE TSSR 






INC 


FATFLG 


(ERROR COUNT 






ERRHRD 


ERRN0,T52RWN,EXPREC 


1 REWIND NOT ACCEPTED 


TRAP 
.WORD 
.WORD 
.WORD 


C$ERMRU 
416 

T32RWN 
EXPREC 


CKLOOt' 




iLOOP IF SELECTED 


TRAP 


CiCLPl 


MOV 


T32eFR»6.Rl 


(PICK UP XSTO 






MOV 


R1.R2 


iSET UP EXPECTED 






BIS 


<>eiTl.R2 


iSET BOT BIT IN EXPECTED 




CMP 


R1,R2 


(DOES EXP - REC'D 






BEQ 


240$ 


iBR, IF EQUAL (OK) 






INC 


FATFLG 


J ERROR COUNT 






ERRHRD 


ERRN0,T32B0T.EXPREC 


J TAPE NOT AT BOT AFTER 


REWIND 





• 1.R5 

PC, SPACE 

♦140411, T32PK3 

«T52PK5,R4 

R4,TSDB(R5) 

PC.WAITF 

TSSR(R5).R1 

#SSR.R2 

R1,R2 



TRAP 
.WORD 
.WORD 
.WORD 

(LOOP IF SELECTED 

TRAP 

(SET UP FOR SPACE COMMAND 

(ISSUE SPACE COMMAND 1 FORWARD 

(ERASE DATA.ACK COMMAND 

(SET UP R4 WITH PACKET ADDRESS 

(ISSUE COMMAND 

(WAIT FOR SSR TO SET 

(GET TSSR CONTENTS 

tSET UP EXPECTED 

(ARE THEY EQUAL 



C$ERHRD 
417 
r32B0T 
EXPRFC 

CSCLPl 



1 I ., 
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2710 
2711 
2715 



2717 
2716 
2719 
2720 
2721 
2722 
2723 
2724 
2725 
2726 
2727 
2731 



2732 

2733 
2734 
2735 
2736 
2737 
2741 



2742 

2743 

27*^4 



2745 
2746 
2747 
2748 
2749 
2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2758 



050340 
050342 
050346 
050346 
050350 
050352 
050354 
050356 
050356 
050360 
050366 
050374 
050402 
050406 
050412 
050416 
050422 
050426 
050430 
050432 
050436 
050436 
050440 
050442 
050444 
050446 
050446 
050450 
050454 
050460 
050462 
050464 
050470 
050470 
050472 
050474 
050476 
050500 
050500 
050502 
050502 
050502 
050502 
050504 
050512 
050514 
050520 



001406 
005237 

104456 
000642 
052046 
012126 

104406 
013757 
012737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
000643 
052341 
012126 

104406 
017701 
012702 
020102 
001406 
005237 

104456 
000644 
052505 
015554 

104406 



104403 
023727 
105402 
004737 



002214 



280$: 



BFQ 
INC 
ERRHRD 



CKLOOP 



003116 
140401 
000144 
051500 
000000 
016330 
000002 
000200 



002214 



051502 
051500 
051506 



290$: CKLOOP 



132442 
000144 



002214 



300$ 
330$ 



CKLOOP 



ENOSUB 



002214 
017262 



000017 



CMP 
BLO 
JSR 



999$ 

*■ 



280$ 
FATFLG 
RRN0,T32ERA,PKT53R 



MOV 


aFREE.Rl 


MOV 


#100., R2 


CMP 


RI.R2 


BFQ 


300$ 


INC 


FATFLG 


ERRHRD 


ERRNa.T32ECF.EXPREC 



FATFLG, #15 

999$ 

PCCKDROP 



TEST 4, SUBTEST 3 



SEQ 0147 



MOV 


FREe,T32RB 




MOV 


#140401, T32PK3 




MOV 


#100. .T32SZ 




MOV 


#T32PK3.R4 




MOv 


R4.TSDBCR5) 




JSR 


PCUAITF 




MOV 


TSSRCR5),R1 




MOV 


#SSR.R2 




CMP 


R1.R2 




BEQ 


290$ 




INC 


FATFLG 




ERRHRD 


ERRN0,T32TSA.PKTSSR 





iRR, IF OK 

I ERROR COUNT 
jTSSR INCORRECT AFTER READ DATA 

TRAP C$ERHRD 

.WORD 418 
.WORD T32ERA 
.WORD PKTSSR 
iLOOP IF SELECTED 

TRAP C$CLP1 

ADDRESS OF BUFFER 
READ REVERSE, ACK.CVC 1 COMMAND 
SET UP THF SI2E Of RECORD 
SET UP R4 WITH PACKET ADDRESS 
ISSUE COMMAND 
WAIT FOR SSR TO SET 
GET TSSR CONTENTS 

SET UP EXPECTED TAPE STATUS ALERT 
ARE THEY EQUAL 
BR, IF OK 

I ERROR COUNT 
TSSR INCORRECT AFTER READ DATA 





TRAP 


C$ERHRD 




.WORD 


419 




.WORD 


T32TSA 




.WORD 


PKTSSR 


LOOP IF SELECTED 








TRAP 


C$CLP1 


GET DATA READ 






SHOULD BE 100 






CHECK' EM OUT 






BR. IF OK 






; ERROR COUNT 






ERASE COMMAND DIDN'T 


WORK 






TRAP 


C$ERHRD 




.WORD 


420 




.WORD 


T32ECK 




.WORD 


EXPREC 



LOOP IF SELECTED 



TRAP 



C$CLP1 



(>>>>>>>>>>>> END SUBTEST v>>>>>i^>>>> 

L 10055: 

TRAP C$£SUB 
lis ERROR COUNT AT 25 
iBR. IF LESS THAN 25 
(TRY TO DROP THE UNIT 



VERIFIES THAT AN ERASE COMMAND ENCOUNTERING THE EOT MARKER. OR 
EXECUTED BEYOND THE EOT MARKER. CAUSES TAPE STATUS ALERT 
TERMINATION WITH THE EOT STATUS BIT SET. ALSO VERIFIES THAT THE 
OTHER TAPE MOTION COMMANDS EXECUTED WHEN THE TAPE IS BLANK 
RESULT IN UNRECOVERABLE ERROR TERMINATION AND OPERATION 
INCOMPLETE STATUS. THE FOLLOWING TEST SEQUENCE IS EXECUTED: 



1 -^ 

i . 1 . 
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SEQ 0148 



2759 
27f..O 
2761 
2762 
2765 
2764 
r^65 
2^66 
2^67 
2768 
2769 
2770 
2771 
2772 
2773 
2774 
2775 
2776 
2777 
2778 
2779 
2780 
2781 
2782 
2783 
2784 
2785 
2786 
2787 



2788 
2789 
2790 
2791 
2792 
2793 
2794 



2795 
2796 
2797 
2801 
2802 



2803 
2804 



050520 
050520 
050520 
050522 
050526 
050532 
050536 
050544 
050550 
050552 
050552 
050556 
050560 
050564 
050566 
050572 
050574 
050600 
050602 
050606 
050610 
050614 
050616 
050616 
050620 
050622 
050624 
050626 
050634 



104402 
004737 
004737 
004737 
012737 
004737 
103426 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001567 
005337 
001356 
005237 
010001 

104455 
000645 
003646 
012114 
013737 
052737 



1. THE TAPE IS REWOUND. 

2. ERASE COMMANDS ARE REPEATEDLY ISSUED UNTIL EOT STATUS 
IS SEEN. AN ERROR IS REPORTED IF ANY TERMINATION OTHER 
THAN NORMAL (WITH EOT-0) OR TAPE STATUS ALERT (WITH 
EOT-1) IS ENCOUNTERED. IF THE CONTROLLER OR TRANSPORT 
DOES NOT DETECT THE EOT, THE TRANSPORT WILL FAULT. 
THIS IS REPORTED AS A FATAL ERROR AND THE TEST IS 
ABORTED. 

3. AN ADDITIONAL ERASE COMMAND IS ISS'JED AND IT IS 
VERIFIED THAT TAPE STATUS ALERT TERMINATION RESULTS. 
WITH EOT-1. 

4. IT IS VERIFIED THAT EACH OF THE FOLLOWING COMMA; JOS 
(ISSUED IN THE ORDER GIVEN) RESULTS IN UNRECOVERABLE 
ERROR TERMINATION WITH OPI-1: SPACE RECORDS REVERSE 
SKIP TAPE MARKS REVERSE READ REVERSE REREAD PREVIOUS 
COPP-0) REREAD PREVIOUS (OPP-1) REREAD NEXT C0PP«1) 
REREAD NEXT COPP-0) READ NEXT SKIP TAPE MARKS REVERSE 
SKIP TAPE MARKS FORWARD SPACE RECORDS FORWARD WRITE 
DATA RETRY 



052730 

053022 

053052 

176750 051544 

016054 10$: 



000250 
002116 
177772 
177756 
051544 
002214 



002174 051400 20 J: 
000040 051400 



BGNSUB 




J >>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 






T4.3: 








TRAP 


CJBSUB 


JSR 


PC,T32REST 


;SET COMMAND PACKET 




JSR 


PC,T32RT2 


jSET UP OTHER COMMAND PACKET 




JSR 


PC.T32RT3 


iSET UP OTHER COMMAND PACKET 




MOV 


*65000..T32DLY 


I SET UP DELAY COUNTER 




JSR 


PC.SOFINIT 


;D0 INITIALIZE ON CONTROLLER 




BCS 


20* 


tBR IF INIT WAS OK 




DELAY 


250 


(DELAY ABOUT .25 SEC 








MOV 


#250, (PC)* 






.WORD 









MOV 


LJDLY.CPC) 






.WORD 









DEC 


-6(PC) 






BNE 


. -4 






DEC 


-22(PC) 






BNE 


.-20 


DEC 


T320LY 


I BUMP COUNTER 




BNE 


10$ 


;BR. IF COUNTER NOT DONE 




INC 


FATFLG 


i ERROR COUNT 




MOV 


RO.Rl 


(CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


(FATAL ERROR TSSR WAS NOT OK 








TRAP 


CJERDF 






.WORD 


421 






.WORD 


SFIERR 






.WORD 


SFIMSG 


MOV 


UNITN.T320SW 


(SET UP UNIT CDRIVE) NUMBER 





BIS 



^BIT5,T32DSW 



(TURN ON HIGH SPEED TO SAVE TIME 
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2805 
2806 
2807 
2808 
2812 
2815 



2814 

2815 
2816 
2817 
2818 
2819 
2825 



2824 

2825 
2826 
2827 
2828 
282V 
2850 
2854 



2835 

2856 
2837 
2858 
2859 
2840 
2841 
2642 
2845 
2844 
2845 
2846 
2847 
2851 



2852 
2853 



050642 
050646 
050652 
050654 
050660 
050662 
050662 
050664 
050666 
050670 
050672 
050672 
050674 
050700 
050702 
050706 
050710 
050714 
050714 
050716 
050720 
050722 
050724 
050724 
050726 
050732 
050734 
050740 
050742 
050744 
050750 
050750 
0507S2 
050754 
050756 
050760 
050760 
050762 
050770 
050774 
0510O0 
051004 
051010 
051014 
051020 
051022 
051024 
051050 
051032 
051036 
051036 
051040 
051042 
051044 
051046 
051046 
051050 



012704 
004737 
10540 7 
005237 
010001 

104456 
000646 
005052 
012114 

104406 
004737 
105411 
016501 
010004 
005237 

104456 
000647 
051730 
012126 

104406 
013701 
010102 
052702 
020102 
001406 
005257 

104456 
000650 
051546 
015554 

104406 
012737 
012704 
010337 
010465 
004737 
016501 
012702 
020102 
001757 
032701 
001006 
005237 

104456 

000651 
052566 
012126 

104406 
013701 



051560 
010742 

002214 



011074 
000002 
002214 



051410 
000002 

002214 



23$ 



50$! 



MOV 
JSR 
BCS 
INC 
MOV 
ERRHRD 



CKLOOP 

JSR 
BCS 
MOV 
MOV 
INC 
ERRHRD 



CKLOOP 



40$ 

140411 051500 65$ 

051500 

051506 

000000 

016350 

000002 

000200 



000004 
002214 



80$: 



051410 



CKLOOP 

MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 

Bir 

BNE 
INC 
ERRHRD 



CKLOOP 
MOV 



VfT32PACl<ET.R4 

PC.WRTCHR 

23$ 

FATFLG 

RO.Rl 

ERRNO.WRTMBG.SFIMSG 



PC, REWIND 

30$ 

T5SR(R5)»R1 

R0.R4 

FATFLG 

ERRN0,T32RWN,PKTSSR 



MOV 


T32BFR+6,R1 


MOV 


R1.R2 


BIS 


#eiTl,R2 


CMP 


R1.R2 


BEQ 


40$ 


INC 


FATFLG 


ERRHRD 


ERRN0,T32B0T,EXPREC 



*140411,T52PK5 

*T32PK3,R4 

R3.T32S2 

R4.TSDB(R?) 

PC.WAITF 

TSSR(R5).R1 

*SSR.R2 

R1.R2 

65$ 

*BIT2.R1 

80$ 

FATFLG 

ERRNO . T32WDC . PKTSSR 



SFQ 0149 



SUBROUTINE NEEDS PACKET ADDRESS 
ISSUE WRITE CHARACTERISTICS 
BR, IF COMMAND ISSUED OK 

I ERROR COUNT 
SAVE CONTENTS OF TSSR 
WRITE CHARACTERISTI5C 



FAILED 




TRAP 


C$ERHRD 


.WORD 


422 


.WORD 


WRTMSG 


.WORD 


SFIMSG 



LOOP IF SELECTED 

TRAP 
CALL TAPE REWIND COMMAND 
BR, IF NO PROBLEM 
GET TSSR CONTENTS 
GET PACKET ADDRESS 

i ERROR COUNT 
REWJND NOT ACCEPTED 



TRAP 



;LOOP IF SELECTED 

tPICK UP XSTO 

J SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 

iOOES EXP • REC'D 

iSR, IF EQUAL (OK) 

; ERROR COUNT 

iTAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 



;LOOP IF SELECTED 



TRAP 
'l.ACK COMMAND 
PACKET ADDRESS 



C$CLP1 



TRAP 


C$ERHfiD 


.WORD 


423 


.WORD 


T52nWN 


.WORD 


PKTSSR 



C$CLP1 



T32BFRf6.Rl 



(ERASE OATA.CVC' 

iSET UP R4 WITH 

J SET UP RECORD SIZE IN PACKET 

I ISSUE COMMAND 

tWAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

(SET UP EXPECTED 

(ARE THEY EQUAL 

(BR. IF OK 

I CHECK FOR TAPE STATUS ALERT 

(BR, IF TAPE STATUS ALERT SET 

i ERROR COUNT 
I TSSR INCORRECT AFTER WRITE DATA 



jLOOP IF SELECTED 
iPICK UP XSTO 



C$ERHRO 
424 

T52B0T 
EXPREC 

C$CLPl 



TRAP 


C$ERHRD 


.WORD 


425 


.WORD 


T32WDC 


.WORD 


PKTSSR 



TRAP 



CSCLPl 
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SEQ OlSO 



2854 


051054 


010102 




2855 


051056 


052702 


000001 


2856 


051062 


020102 




2857 


051064 


001406 




2856 


051066 


005237 


002214 


2862 


051072 








051072 


104456 






051074 


000652 






051076 


051641 






051100 


015554 




2863 


051102 








051102 


104406 




2864 


051104 


012703 


051510 


2865 


051110 


013737 


003116 051502 


2866 


051116 


011337 


051500 


2867 


051122 


012704 


051500 


2868 


051126 


012700 


177777 


2869 


051132 


004737 


017502 


2870 


051156 


012737 


000144 051506 


2871 


051144 


010465 


OOOOOO 


2872 


051150 


012737 


000062 051544 


2873 


0511S6 


0O4737 


016330 


2874 


051162 


016501 


000002 


2875 


051166 


012702 


100214 


2876 


051172 


020102 




2877 


051174 


001425 




2878 


051176 








051176 


012727 


000250 




051202 


OOOOOO 






051204 


013727 


002116 




051210 


OOOOOO 






051212 


005367 


177772 




051216 


001375 






051220 


005367 


177756 




051224 


001367 




2879 


051226 


005337 


051544 


2880 


051232 


001351 




2881 


051234 


005237 


002214 


2885 


051240 








051240 


104456 






051242 


000653 






051244 


052505 






051246 


012126 




2886 


051250 








051250 


1O4406 




2887 


051252 


013701 


051416 


2888 


051256 


010102 




2889 


051260 


05^ 702 


000100 


2890 


051264 


02J102 




2691 


051266 


001406 




2892 


051270 


005237 


002214 


2896 


051274 








051274 


104456 






051276 


000654 






051300 


052633 






051302 


015554 




2897 


051304 







MOV 


R1,R2 


BIS 


V>BIT0.R2 


CMP 


R1,R2 


BEQ 


240$ 


INC 


FATF'LG 


ERRHRD 


ERRN0,T52E0T.EXPREC 



240$ 



265$ 



270$ 



280$ 



SET UP EXPECTED 

SET EOT BIT IN EXPECTED 

DOES EXP - REC'D 

BR, IF EQUAL (OK) 

; ERROR COUNT 
TAPE NOT AT EOT AFTER ERASE COMMANDS 



290$ 







TRAP 


C$ERHRD 






.WORD 


426 






.WORD 


T32E0T 






.WORD 


EXPREC 


CKLOOP 




jLOOP IF SELECTED 








TRAP 


C$CLP1 


MOV 


♦T32CM0.R3 


i STARTING RECORD SIZE 




MOV 


FREE.T32RB 


(STARTING READ BUFFER ADDRESS 




MOV 


(R3).T32PK3 


(READ OATA.ACK COMMAND 




MOV 


*T32PK3.R4 


J SET UP R4 WITH PACKET ADDRESS 




MOV 


*177777.R0 


J SET PATTERN IN CORRECT REGISTER 


JSR 


PC.FILLMEM 


jFiLL MEMORY WITH ALL ONES 




MOV 


«100. .T32SZ 


;SET UP RECORD SIZE IN PACKET 




MOV 


R4.TS0B(R5) 


I ISSUE COMMAND 




MOV 


*50. .T320LY 


I SET UP DELAY COUNTER 




JSR 


PC.WAITF 


jWAIT FOR SSR TO SET 




MOV 


TSSRCR5).R1 


;GET TSSR CONTENTS 




MOV 


^>SSR!SC!BIT2!BIT3.R2 


iSET UP EXPECTED 




CMP 


R1,R2 


lARE THEY EQUAL 




BEQ 


280$ 


jBR. IF OK 




DELAY 


250 


;DELAY FOR SSR TO BE SET 








MOV 


*250.CPC)» 






.WORD 









MOV 


L$DLY.(PC)* 






.WORD 









DEC 


-6(PC) 






BNE 


.-4 






DEC 


22CPC) 






BNE 


.-20 


DEC 


T32DLY 


; COUNT DELAY ROUTINE DOWN 




BNE 


270$ 


J BR, IF DELAY HAS NOT ENDED 




INC 


FATFLG 


: ERROR COUNT 




ERRHRD 


ERRN0.T32ECF,PKTSSR 


;TSSR INCORRECT AFTER READ DATA 








TRAP 


C$ERHRD 






.WORD 


42 7 






.WORD 


T32ECF 






.WORD 


PKTSSR 


CKLOOP 




I LOOP IF SELECTED 








TRAP 


CJCLPl 


MOV 


T32BFR>li^.Rl 


(PICK UP XST3 




MOV 


R1.R2 


I SET UP EXPECTED 




BIS 


#eiT6»R2 


;SET OPI BIT IN EXPECTED 




CMP 


R1,R2 


lis OPI OIT SET 




BEQ 


290$ 


;BR. IF BIT IS SET 




INC 


FATFLG 


; ERROR COUNT 




ERRHRD 


ERRN0.T320PI,EXPREC 


iOPI BIT NOT SET 








TRAP 


C$ERHRD 






.WORD 


428 






.WORD 


T320PT 






.WORD 


EXPREC 



CKLOOP 



LOOP IF SELECTED 
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051304 


104406 










28^8 


051306 


005723 






TST 


CR3)» 


2899 


051310 


021327 


177777 




CMP 


CR3). ^1177777 


2900 


051314 


001300 






BNE 


265$ 


2901 


051316 
051316 
051316 


104403 






ENDSIJB 




2902 


051320 


023727 


002214 000017 


CMP 


FATFLG.V?15. 


2903 


051326 


103402 






BLO 


9')^> 


2904 


U51330 


004737 


017262 




JSR 


PC.CKDROP 


2905 


051334 






999$: 






2906 














2907 














2908 














2909 


051334 


004737 


016536 




JSR 


PC.TSTLOOP 


2910 


051340 


103002 






BCC 


163* 


2911 


051342 


000137 


047050 




JMP 


T32LOOP 


2912 


051346 
051346 
051350 


104432 
001524 




163$: 


EXIT 


TST 


2913 








• ♦ 






2914 








; LOCAL 


STORAGE 


FOR THIS TEST 


2915 








• , 






2917 




051360 






.-<.*10 


>£177770 


2919 


051360 






T32PACKET: 




2920 


051360 


100004 






.WORD 


100004 


2921 


051362 


051370 






.WORD 


T32DATA 


2922 


051364 


000000 






.WORD 





2923 


051366 


000012 






.WORD 


10. 


2924 


051370 






T32DATA 






2925 


051370 


051402 






'.WORD 


T32BFR 


2926 


051372 


000000 






.WORD 





2927 


051374 


000024 






.WORD 


20. 


2928 


051376 


000000 






.WORD 





2929 


051400 


000000 




T320SW: 


.WORD 





2930 
2931 


051402 






T32BFR: 


.BLKW 


25. 


2932 
2933 








i WRITE 


SUBSYSTEM MEMORY COMM 


2935 




051470 






.■<.*10 


>£177770 


2937 


051470 






T32PK2: 






2938 


051470 


100006 






.WORD 


100006 


2939 


051472 


000000 






.WORD 





2940 


051474 


000000 






.WORD 





2941 


051476 


OOO0O6 






.WORD 


6. 


2942 














2^6 


051500 






T32PK3: 






2947 


051500 


100005 






.WORD 


100005 


2948 


051502 






T32RB: 






2949 


051502 


003116 




T32WB! 


.WORD 


FREE 


2950 


051504 


000000 






.WORD 





2951 


051506 


000000 




T32SZ: 


.WORD 





2952 










.EVEN 




2953 














2954 














2955 














2956 















SEQ 0151 



TRAP C$CLP1 
BUMP COMMAND POINTER 
AT END OF TABLE YET 
BR, KEEP TRYING COMMANDS 
>>>>>>^>>>>> END SUBTEST >>>>>>>>>>>> 
L10056: 

TRAP CiESUB 
IS ERROR COUNT AT 25 
BR, IF LESS THAN 25 
TRY TO DROP THE UNIT 



DO WE NEED TO ITERATE TEST 

BR. IF NO LOOP REQUIRED 

EXECUTE AGAIN 

ALL DONE THIS TEST 

TRAP CJEXIT 
.WORD L10053 



:C0MMAh40 PACKET FOR TEST 

;WRITE CHARACTERISTICS COMMAND. WITH 

; ADDRESS OF CHARACTERISTICS BLOCK 

J STARTING VALUE. OF BLOCK SIZE 
: CHARACTERISTICS DATA BLOCK 
J ADDRESS OF MESSAGE BUFFER 

; LENGTH OF MESSAGE BUFFER 



ACK 



;SLLECT DRIVE 
: MESSAGE BUFFER 



s WRITE SUB SYS HEM COMMAND. AND ACK 
.-ADDRESS OF SELECT BLOCK DATA 

J SIZE OF DATA PACKET 



(REREAD COMMAND. AND ACX 
J ADDRESS OF WRITE BUFFER 
J SIZE OF BUFFER (EXTENT) 



1. ( . 

TtST 1 - HARDWARE-. TEST 1-8 TtST MACRO M1300 ^0-MAR-e4 08:44 PAGE 25-58 
TtST 4: ERASE AND OPERATION INCOMPLETE 



SEQ 01^2 



2957 
2958 
2959 
2960 
2961 
2962 
2963 
2964 
2965 
2966 
2967 
2968 
29c 9 
2970 
2971 
2972 
2973 
2974 
2975 
29/6 
2977 
2978 
2979 
2980 
2981 
2982 
2963 
2984 
2985 
2966 
2967 
2986 
2989 
2990 
2991 
2992 
2993 
2994 
2995 
2996 
2997 
2998 
2999 
3000 
3001 
3002 
3003 
3004 
3005 
3006 
3007 
3008 
3009 
3010 
3011 
3012 
3013 



051510 
051510 
051512 
051514 
051516 
051520 
051522 
051524 
051526 
051530 
051532 
051534 
051536 



051540 
051542 
051544 



051546 
051641 
051730 
051777 
052046 
05211? 
052166 
052264 
052341 
052416 
052505 
052566 
052633 
052670 



052730 
052730 
052734 
052740 
052744 
052750 
052752 
052756 
052762 



140410 
141410 
140401 
141001 
161401 
161001 
141401 
140001 
141410 
141010 
141005 
177777 



000000 
000000 
000000 



124 
124 
122 
124 
124 
124 
122 
124 
124 
102 
105 
124 
117 
105 



012701 
012721 
012721 
005021 
012721 
012721 
005021 



141 
141 
145 
123 
123 
123 
105 
123 
123 
117 
122 
123 
120 
162 



160 
160 
167 
123 
123 
102 
101 
123 
123 
124 
101 
123 
111 
141 



051360 
100004 
051370 

000012 
051402 



.EVEN 
J TAPE MOTION PACKET COMMAND VALUES 

T32CMDr 



.WORD 


140410 


.WORD 


141410 


• WORD 


140401 


.WORD 


141001 


.WORD 


161401 


.WORD 


161001 


.WORD 


141401 


.WORD 


140001 


.WORD 


141410 


.WORD 


141010 


.WORD 


141005 


,WORD 


177777 


.WORD 





.WORD 





.WORD 






i SPACE RECORDS REVERSE 
;SKIP TAPE MARKS REVERSE 
;RF.A0 REVERSE 



» REREAD 
(REREAD 
I REREAD 
(REREAD 



PREVIOUS COPP-0) 



T32CNT 
T32CNU 
T32DLY 



LOCAL TEXT MESSAGES FOR TEST 



NEXT (OPP-1) 
PREVIOUS (OPP-1) 
NEXT (OPP-0) 

J READ MEXT 

I SKIP TAPE MARKS REVERSE 

I SKIP RECORDS FORWARD 

;WPXTE DATA RETRY 

J END or DATA 



jTAPE TIMER COUNTER STORAGE AREA 
:TAPE TIMER COUNTER STORAGE AREA 
I DELAY COUNTER 



T32B0T 
T32t0T 
T32RWN 
T32AM3 
T32ERA 
1328 A: 
T32RIB 
T32SCF 
T32TSA 
T32B0t 
T32ECr 
T32W0C 
T320PI 
TST32ID: 



ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 

EVEN 



'Tap* Not At BOT After REWIND Commanc* (BOT Not Set In XSTO)' 

' T«p« Status Al«rt During Erase To EOT. But EOT Not SeC 

'Rewind CPOSITION) Command Not Accepted' 

'TSSR Inlt. Faileo After REREAD COMMAND' 

'TSSR Not Correct After ERASE Command' 

' TS8A Not Correct After REREAD DATA Command' 

'READ REVERSE. After ERASE From BOT. Failed To Set RIB In XST3' 

'TSSR Not Correct After SPACE RECORDS Command' 

'TSSR Not Correct After READ REVERSE Into BOT' 

BOT CXSTO) Still Set After Erase From Tape' 's BOT Marker' 

'ERASE Failed To Clear Tape (Erase) Tape Properly' 

'TSSR Not Correct After ERASE Command' 

'OPI Bit (XST3) Failed To Set' 

.ASCIZ 'Erase And Operation Incomplete' 



ROUTINE rO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
WRITE SUBSYSTEM MEMORY COMMAND 



T32REST: 



SAVREG 

MOV " «T32PACKET,R1 

MOV *100004.CR1)» 

MOV *T32DATA.(Rl)t 

CLR CRD* 

MOV 010. .(Rl)f 

MOV OT32BrR.(r'^l)* 

CLR (RU* 



;SAVF THE REGISTERS 

[START OF THE PACKET 

iWRITE SUBSYSTEM MEM. WITH ACK . 

; ADDRESS OF CHARAISTICS DATA BLOCK 

i EXTENDED ADDRESS 

iSIZr OF DATA BLOCK IN BYTES 

jADDRESS OF MESSAGE BUFFER 



1.^ 



:» 



TFST 1 HARDUARF. TEST 1-8 TEST MACRO M1200 :jO-NAR-84 08:44 PAGF. ^5-59 
TtST 4: ERASE AND OPERATION INCOMPLETE 



SEQ 0LS3 



3014 
3015 
3016 
3017 
3018 
30X9 
3020 
3021 
3022 
3023 
3024 
3025 
3026 
3027 
3028 
3029 
3030 
3031 
3032 
3033 
3034 
3035 
3036 
3037 
3030 
3039 
3040 
3041 



3042 
3043 
3044 
3045 
3046 
3047 
3048 
3049 
5050 
3051 
305? 
305 :S 
3054 
3055 
3056 
3057 
3058 
3059 
30^50 
3061 
3062 
3063 
3064 
3065 
3066 
3067 
3068 



052764 
052770 
052772 
052776 
053002 
053010 
053012 
053016 
053020 

053022 
053022 
053026 
053032 
053036 
053040 
053042 
053046 
053050 
053052 
053052 
053056 
053062 
053064 
053066 
053070 
053072 
053074 
053074 
053074 



012721 
005021 
012711 
012702 
012762 
005742 
022702 
001371 
000207 



012701 
012721 
005021 
005021 
012721 
005021 
000207 



012701 
005021 
005021 
005021 
005011 
000207 



104401 



000024 

000000 
000030 
177777 

000000 



051402 



051470 
100006 



000006 



051500 





MOV 


i>20, ,CR1)* 




CLR 


CRD* 




MOV 


^O.(Rl) 




MOV 


V>24 . . R2 


64$: 


MOV 


^a;7777,T32BFRCR2) 




TST 


■CR2) 




CMP 


^0,R2 




BNE 


64$ 




RTS 


PC 


T32RT2: 


SAVREG 






MOV 


<?T32PI<2,R1 




MOV 


<M 00006. CRD* 




CLR 


CRD* 




CLR 


CRD* 




MOV 


06. ,CRD* 




CLR 


CRDf 




RTS 


PC 


T32RT3: 


SAVREG 






MOV 


#T32PK3.R1 




CLR 


CRD* 




CLR 


CRD* 




CLR 


CRDf 




CLR 


CRD 




RTS 


PC 




ENDTST 





(LENGTH OF MESSAGE BUFFER 

t SELECT DRIVE ZERO 

I NUMBER OF LOCATIONS TO BE CLEARED 

I ALL ONFS TO MESSAGE BUFFER 

NEXT LOCATION 

AT END OF LOOP YET 

KEEP GOING UNTIL CONE 
J RETURN 



(SAVE THE REGISTERS 

i START OF THE PACKET 

(WRITE SUBSYSTEM MEM. WITH AD< , 

ADDRESS OF DATA BLOCK 

EXTENDED ADDRESS 

SIZE OF DATA BLOCK IN BYTES 

(RETURN 

(SAVE REGISTERS 

(SET {P POINTER ADDRESS 

COMMAND SPACE 

ADDRESS OF DATA BLOCK 

EXTEf^EO ADDRESS 

SIZE OF DATA TRANSFER BLOCK 

RETURN 



L10053: 



.SBTTL TEST 5: DATA PARITY TEST 



TRAP 



C$ETST 



TEST 5 -- Data Parity Test 



Th IS t«st ver i f ies that the data par I^ty c i pcul try 
traiisport 



In both the 



id operating properly by forcIr^g data records with Hrona 
written onto tape and checking the results obtained when the data i 
(following test sequence Is performed: 



controller and the 

par I ty to be 

s read. The 



A Write Characteristics command 
examined to determine the states 
Enable switches on the controlle 
further actions need be taken i 
the next step. If buffering is 
Control field iri the extended 
Wr i te Character i St I cs command, 
so if It is not already, a Wr ! t 
cha.ige the logical sense of the 



i s i ssued and the result I ng status I s 
of the Extended Features and Buffering 
r module. If ouffering Is disabled, no 
n this step and the program proceeds to 
enabled, it is disabled vid the tiuffer 
characteristics data word supplied by a 
C The module must be In Extended n»ode . 
e Subsystem Memory command is Issued to 
Extended Features sw ! tch D 



The Write Subsyste.'n Memory 
Parity control flip-flop. 



command i s used to set the Force Wrong 



I- i. (. . 
TFST 1 HARDWARE" TK^T 1 8 TEST MACRO Ml^OO ;^0-MAR-84 08:44 PAGE ;>5 60 

TtST 5: DATA PARITY TtST 



SEQ 01b4 



3069 
3070 
3071 
507^ 
3073 
3074 
30^:j 
30 76 
307 7 
:507a 
3079 
3080 
3081 
3082 
3083 
3084 
308!5 
3086 
308; 
3088 
3089 
3090 
3091 
309:^ 
3093 
3094 
3095 
3096 
3097 
3098 
3099 
3100 
3101 
3102 
3103 
3104 
310!3 
3106 

3107 
311P 
3113 
3114 
3115 
3116 
31.1.7 
3118 
3119 



3iao 

3li^l 
31?? 
3123 
3124 

3125 
3126 



053076 
053076 
053076 
053104 
053110 
053114 
053122 



053126 
053126 
053126 
053126 
053130 
053134 
053140 
053144 
053150 
053154 
053160 



012737 
012 700 
004737 
012737 
005037 



The tape is rewound. 

A Write Data command I s Issvjed to write a data record containing all 
O'-j. It is verified that this command regultfj in Recoverable Error 
termination (TC"4) and that the Uncorrectable Data Error (UNO e^ror 
bit is set . 



The previous 
(octal). 



step is repeated for each data value 2 through 377 



The tape is rewound. 

A Read Next command Is issued to read a record with faulty parity. It 
is verified that this command results in Recoverable Error termination 
(10*4) and that both the Itncorrectable Data (UNO and Read Bus Parity 
(RBP) error bits are set. It is also verified that the data actually 
read i s correct . 



a 



A Read Reverse command with OPP-1 is issued to read, in reverse, the 
same record with faulty parity as read in the previous step. It is 
verified that this command results in Recoverable Error termination 
and that both the Uncorrectable Data (UNO and Reod Bus Parity 
(RBP) error bits are set. It is also verified that the data actually 



(TC-4) 

rearl is correct . 



9 
10 

11 



Tope is spaced forward one record. 



The previous three steps are executed for each test record originally 
wr i tten. 



The controller Is initialized to 
previously set up. 



clear the spec i al test cond i t i ons 



006413 
055675 
016570 
000005 
054746 



002172 



002210 



BGNTST 

MOV 
MOV 
J5R 
MOV 
CLR 



4>EP«T2.EPRTSW 

OI'Sr33ID.R0 

PC.TSTSErUP 

05,L00PCNT 

T33CNT 



T5: : 
SECONDARY ERROR MESSAGE 
ASCII MESSAGE TO IDENTIFY TEST 
DO INITIAL TEST SETUP 
PERFORM 5 ITERATIONS 
I CLEAR TAPE RECORD COUNTER 



T33L00P: 



104402 

005037 002216 

005037 054746 

005037 054750 

004737 055712 

004737 056004 

00^737 056046 

012737 176750 054752 



BGNSl .'3 



CLR 
CLR 
CLR 
JSR 
JSR 
JSR 
MOV 



>*>i>.>>>'»>>^> 



INTRECV 

T33CNT 

T33CNU 

PC.V33REST 

PC.T33RT2 

PC,T35RT3 

V?65000. .T33DLY 



BEGIN SUBTEST 
T5.1: 

TRAP 



! INTERRUPT INDICATOR 
(TIMER KOR WRITE DATA 
i TIMER FOR WRITE DATA 
J SET COMMAND PACKET 
(SET UP OTHER COMMAND 
J SET UP OTHER COMMAND 
tSET UP DELAY COUNTER 



'>!»:»>^>^ >•»-' 



C$BSUB 



SPACING 
RETRY SPACING 

PACKET 
PACKET 



TE-:ST 1 - HARDWARt TE^iT 1 -ft Tt£ST MACRO Ml^OO 
TtbT b: DATA PARITY UlST 

10$: 



L'OMAR-84 08:44 PAGF. =?S-61 



31?"/ 


053166 


004 757 


016054 


31.^8 


053172 


103426 




3129 


053174 








0531/4 


012727 


000250 




053200 


000000 






053202 


015727 


002116 




053206 


000000 






053210 


003367 


177^72 




053214 


001375 






053216 


005367 


177756 




053222 


001367 




3130 


053224 


005337 


054752 


3131 


053230 


001356 




3132 


053232 


005237 


002214 


3136 


053236 


010001 




3137 


053240 








053240 


104455 






053242 


000765 






053244 


003646 






053246 


012114 




3136 


053250 


013737 


002174 


31i9 








3140 


053256 


012704 


054600 


3141 


053262 


004737 


010742 


314P 


053266 


103^107 




3145 


053270 


005237 


002214 


3i47 


053274 


010001 




3148 


053276 








053276 


104456 






053300 


000766 






053302 


005052 






053304 


012114 




3149 


053306 








053306 


104406 




3150 


053310 


004737 


011074 


3151 


053514 


103411 




315.^ 


053316 


016501 


000002 


3153 


053322 


010004 




3154 


053324 


005237 


002214 


3156 


05?3^0 








053330 


104456 






053332 


000767 






055334 


055450 






053356 


012126 




3159 


053340 








055540 


104406 




3160 


053342 


013701 


054650 


3161 


055346 


010102 




3162 


055550 


052702 


000002 


3163 


053354 


020102 




3164 


055556 


001406 




3165 


055560 


005237 


002214 


3169 


0555* 4 








053364 


104456 






055366 


000 7 70 






053370 


055355 






053372 


015554 





20$: 



23$: 



CKLOOP 



30$: 



CKLOOP 



5F.Q 0155 



JSR 


PC.SOF 


INIT 


iDO INITIAl I/L ON CONrRULLf-R 




MCS 


20$ 




[HR If INIT WAIi OK 




OtLAr 


250 




iDEUAY ABOUT ,25 SEC 

MOV 
. WORD 
MOV 
.WORD 

Dec 

BNF 
Dt.C 
BNh 


7250.CPC)f 



LiDLi'.CPC)* 



■6(PC) 

. ^4 

-22CPC) 

. -20 


OLC 


T33DI Y 




[BUMP COUNfFR 




BNF. 


10$ 




;DR. IF COUNTER NOT DONE 




INC 


FATFLG 




I ERROR COUNT 




MOV 


RO.Rl 




tCONTFNT'J Of TSSR REGISTER 




ERROF 


ERRNO. 


SFIERR.SFIMSG 


i FATAL. ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 


c$rRDr 

501 

SriERR 

SFIMSG 


MOV 


UNITN. 


T33DSW 


iSET UP UNIT NUMBER 





MOV 


0T33PACKET.R4 


jr.R 


PC.WRTCHR 


BCS 


23$ 


INC 


FATFLG 


MOV 


RO.R] 


ERRHRD 


ERRNO . WRTMSG , SFIMSG 



5Uf\njUTINE NEEDS PACKET ADDRESS 
ISSUE WRITE CHARACTERISTICS 



OK 



JSR 


PC. REWIND 


BCS 


30$ 


MOV 


TSSR(R5),R1 


MOV 


R0.R4 


INC 


FATFLG 


ERRHRD 


ERRNO, T33RWN.PKTSSR 



iBR, IF COMMAND ISSUED 

1 ERROR COUNT 
(SAVE CONTENTS OF TSSR 
iWRITE CHARACTERI5TISC 



(LOOP IF SELECTED 

TRAP 

iCALL TAPE REWIND COMMAND 

iBR. IF NO PROBLEM 

iGET TSSR CONTENTS 

iGET PACKET ADORERS 
; ERROR COUNT 

[REWIND NOT ACCEPTED 

TRAP 
.WORD 
. WORD 
.WORD 



FAILED 




TRAP 


CtFRHRO 


.WORD 


502 


.WORD 


WRTMSG 


.WORD 


SFIMSG 



C$CLP1 



iLOOP IF SELECTED 



MOV 


T33BFRt6.Rl 


MOV 


R3 .R2 


BIS 


^>eiTl.R2 


CMP 


R1,R2 


BEQ 


40$ 


INC 


FATFLG 


ERRHRD 


ERRNO. T55B0T.EXPREC 



PICK UP XS 

SET UP EXf'LCfED 

SET BOT BIT IN EXPECTED 

DOES EXP - REC'D 

BR. IF EQUAL COK) 

[ERROR COUNT 
TAPE NOT AT BUT AFTER 



TRAP 



CJERHRO 
505 

T33RWN 
PKTSSR 

C$CLP1 



RfcWiNO 
TRAP 
■ WORD 
.WORO 
.WORD 



CitRMRO 
•^.04 
T3JnOT 
GXPREC 



Tt-Sl 1 HAKDWARt; FKST 18 TEST MACRO M1200 
TtST 5: DATA PARITY TKST 



20 MAR ^84 0A:44 PAGt c25 -be? 



3170 

31/1 
3172 
3173 
3174 
3175 
31/6 
31/7 
3176 
3179 
3160 

3ie4 



3185 

3186 
3187 
3188 
3189 
3190 
3191 
3192 
3193 
3194 
3198 
3199 



3i?00 

3?01 
3202 
3203 
3204 
3205 
3206 
3207 
3208 
3209 
3213 



3214 

3215 
3216 
3217 
3218 
3219 



053374 
053374 
053376 
053402 
053404 
053412 
053420 
053424 
053430 
053434 
053436 
053440 
055444 
053444 
053446 
053450 
053452 
053454 
053454 
053456 
053462 
053464 
053472 
053500 
053506 
053512 
053516 
053520 
053524 
053526 
053526 
053530 
053532 
053534 
053536 
053556 
053540 
053540 
053546 
053554 
053560 
053564 
053570 
053572 
053574 
053600 
053600 
053602 
053604 
053606 
053610 
053610 
053612 
053616 
053624 
053630 
053636 



104406 
00573/ 
001025 
112737 
112737 
012704 
010465 
004737 
103407 
010001 
005237 

104456 
000771 
055271 
012126 

104406 
005737 
001426 
013737 
042737 
052737 
012704 
004757 
103407 
005237 
010001 

104456 
000772 
005052 
012114 

104406 

112737 
112737 
012704 
010465 
004737 
103407 
010001 
005237 

104456 
000773 
05S271 
012126 

104406 
012703 
013737 
005037 
012737 
012704 



002220 

000200 
000010 
054710 
000000 
016416 



002214 



002222 

0021/4 
000020 
000010 
054600 
010742 

002214 



000100 
000011 
054710 
000000 
016416 



002214 



000026 
003116 
054 750 
140005 
054720 



40$ 
42$ 



054 731 
054730 



50$ 
55$ 



054620 
054620 
054620 



054731 
054730 



60$ 
70$ 



80$: 

054722 
054720 110$ 



CKl.OOP 

TST 
HNt 

novB 

MOVO 

MOV 

MOV 

vJSR 

BCS 

MOV 

INC 

f:rrhrd 



CKl OOP 



CKLOUP 



MOVB 

MOVB 

MOV 

MOV 

JSR 

BCS 

MOV 

INC 

ERRHRO 



CKl.OOP 

MOV 
MOV 
CLR 
MOV 
MC".^ 



CXTF£A 

55$ 

^20O.T33bSl 

<?10,T33B50 

<>T33PI<2,R4 

R4,T5DD(R5) 

PC.ChXTSSR 

50$ 

RO.Rl 

FATFLG 

ERRN0.T33S3R.PKTSSR 



#100,T33BS1 

#11,T33BS0 

*T33PK2.R4 

R4.TSDBCR5) 

PC.CHKTSSR 

80$ 

RO.Rl 

FMTFLG 

ERRN0,T33SSR,PKTSSR 



Sf-:Q 0156 



TST 


BEN6SW 


t 


BEQ 


70$ 


I 


MOV 


UNITN.T33DSU 


t 


BIC 


*6IT4.T33DSU 


) 


BIS 


«BIT3.T33DSW 


1 


MOV 


OT33PACKET.R4 


• 


JSR 


PC.WRTCHR 


I 


BCS 


60$ 


I 


INC 


FATFLG 




MOV 


RO.Rl 


1 


ERRHRD 


ERRNO.WRTMSG.SFIMSG 


i 



;LOOP IF SEt.KCTFD 

TRAP C$CLP1 

{CHECK FOR EXTENDED FEATURES SW SWITCH 

iBR IF SWITCH IS ON 

jWRITE MISCELLANEOUS CONT/READ ■:>TATUS 

iFUNC. SEL. BIT (TURN ON EXTFEA 5WITC:H) 

jWRITE SUeSTS MEM PACKET 

! ISSUE COMMAND 

J WAIT FOR SSR 

;BR. IF NO ERROR 

J ERROR. SAVE TSSR 

; ERROR COUNT 

iTSSR NOT CORRECT AFTER V^RT. MISCELLANEOUS 

TRAP C$ERHRD 

.WORD 505 
.WORD T33Sr.R 
.WORD PKTSSR 

;LOOP IF SELECTED 

TRAP C$CLP1 

CHECK FOR BUFFER ENABLED 

BR. IF BUFFERIW; NOT ENABLED 

SET UP UNIT NUMBER 

BUFFER DISABLE 

BUFFER DISABLE SEND 01 TO BITS 4 AND 3 

SUBROUTINE NEEDS PACKET ADDRESS 

ISSUE WRITE CHARACTERISTICS 

BR. IF COMMAND ISSJED OK 
;E. TOR COUNT 

SAVE CONTENTS OF TSSR 

WRITE CHARACTERISTISC FAILED 

TRAP C$ERHRD 
. WORD 506 
.WORD WRTMSG 
.WORD SFIMSG 
:L00P IF SELECTED 

TRAP CiCLPl 

jWRITE MISCELLANEOUS CONT/RFAD STATUS 

[FUNC. SEL. BIT CSET WRONG PARITY) 

I WRITE SUBSYS MEM PACKET 

; ISSUE COMMAND 

:WAIT FOR SSR 

;BR. IF NO ERROR 

iERROR, SAVE TSSR 

i ERROR COUNI 
I TSSR NOT CORRECT AFTER 



iLOOP IF SELECTED 



.JRT. MISCELLANEOUS 


TRAP 


C$ERHRD 


.WORD 


50/ 


.WORD 


T33SSR 


.WORD 


PKTSSR 



^22. .R' 

FREE,'33UB 
T33CKU 

V>14C005. r33PK3 
/>T-i3PK3,R4 



TRAP 



iNUMBER OF RECORDS TO BE WRITTEN 

STARTING WRITE BUFFER ADDRESS 
MAKE SURE ITS CLEAR 
WRITE DATA.ACK.CVC-l COMMAND 
SET UP R4 WITH PACKET ADDRESS 



CJCLPl 



I 1 1 



TtST I HAHUWrtRt T(')T 1 H TTST MACHO Mli^OO .'0 MAH H4 0M-4A PA(ie ,"i f,n 
TtST 5: DATA PARITl Tt ST 



'if^i OlS/ 






3^34 

325!i 
3^56 
3257 
3250 
3259 

3244 



3P45 

3246 
524 7 
3248 
5249 
5250 
5251 
3252 
5256 



3257 

325« 
5259 
3260 
5261 
3262 
3265 
3267 



3266 



053642 
055650 
053656 
055662 
055666 

0536 72 
0556 76 
055 702 
055704 
055706 
055 712 
0537J.2 
055714 
055716 
055720 
055 722 
055 722 
055 724 
055750 
055752 
055756 
055740 
055 742 
055746 
055746 
053750 
055752 
055/54 
053 756 
055756 
055760 
053762 
055764 
053770 

0537 72 
055776 
054000 
054004 
054004 
0V4006 
054010 
054012 
0M014 
054014 
054016 
054022 
054024 
054050 
054032 
054054 
054040 
054040 
054042 
054044 
054046 
054050 
054050 



012/5/ 
013777 
00525/ 
010465 
004757 
016501 
012702 
020102 
001406 
005257 

104456 
0007/4 
055052 
012126 

104406 
015701 
010102 
052702 
020102 
001406 
005237 

104456 
000775 
055112 
015554 

104406 
005505 
001522 
004737 
105411 
016501 
010004 
005237 

104456 
000776 
055450 
012126 

104406 

015701 
010102 
052702 
020102 
001406 
005237 

104456 
000777 
055555 
015554 

104406 



000024 
054 750 
054 750 
000000 
016550 
000002 
100210 



002214 



054652 
000002 

002214 



011074 
000002 
002214 



054650 
000002 

0022X4 



0'^4 /2f. 
127240 



120$ ! 



MOV 


«20. ,T3'.S/ 




ISET [JP RtCORD Sl/t IN 


yp^o I T 




MOV 


T55CNU,»Rf b 




iMtMORt nilFO WHh [JATA iU RFCORU 


INC 


T55CNU 




iRt-ADr f OR Nf-.xr RecuMD 






MOV 


R4.T5DB(R5) 




ilSSUf COMMAND 






JSR 


PC.UAITF 




iuait for ^sr to :,t-.T 






Mnv 


T5SRCR5),R1 




l(.t t tssr contfnts 






MOV 


y'jSR!SC!HTT^, 


,H.' 


('.t T UP EXPFCTFD 






CMP 


R1,R2 




lARf TMfct FQiJAl. 






BIQ 


1201 




iHR. I^ UK 






INC 


F'ATf I Ci 




l( RRfJP CO^^T 






hWRHRD 


tRRNO.T53WPW, 


,pi<Ti,r,R 


;T<"iS?> INCOr*RECT Af TFH WRITF DATA 










TRAP 


CMRHPD 










.WURU 


SCH 










. fcJORC) 


r sswf'w 










.WORD 


PWTSSR 


CKLOOP 






llUOP If- SEl FCTED 


TRAP 


CJCLPl 


MOV 


T55BrR»10.Rl 




(PICK LP XbTl 






MOV 


R1.R2 




;SET UP EXPtCTFD 






Bib 


♦eiTl»H2 




ISET UNC BIT IN FXPECTED 




CMP 


RI.R2 




iDOCS tXP • REC'O 






BEQ 


1301 




iBR. IF EQUAL (OK) 






INC 


FATFLG 




1 ERROR C0»JN7 






ERRHRD 


fcRRN0.T33UNC. 


.fcXPREC 


iTAPE NOT AT BOT AFTER 


REWIND 





1301: CKLOOP 

DEC 
BNE 
JSR 
PCS 
hOV 
MOV 
INC 
ERRHRD 



140* : CKl OOP 



iLOOP IF SELECTED 



H5 

1101 

PC. REWIND 

1401 

TSSR(R5),R1 

R0.R4 

FATFLG 

ERRNO.T33RWN,PKTSSH 



TRAP 
.WORD 

.WORD 
.WORD 

TRAP 

(DEC RECORD COUNTER 

iBR. IF MORE RECORDS TO WRITE 

(CALL TAPE REWIND COMMAND 

iBR. IF NO PROeiEM 

i&tT TSSR CONTENTS 

iGET PACKET ADDRESS 
J ERROR C0Lf4T 

iRC.WINO NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 



MOV 


T5 5BFR»6,R1 


HOV 


Rl,R2 


BIS 


♦eiTl»H2 


CMP 


R1.R2 


BEQ 


1501 


INC 


FATFLG 


ERRHRD 


ERnN0,T33B0T UPREC 



iLOOP IF SELECTED 

iPICK UP XSTO 

iSET UP EXPECTED 

(SET BOT BIT IN EXPtCTtD 

iDOES EXP • REC'D 

iBR. ir EOL'AL (OK) 

(ERROR COUNT 
I TAPE NOT AT BOT AFTER 



TRAP 



150 «t CKLOOP 



iLOOP IF SELECTED 



REWIND 
TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



C»ERHRO 
509 

T35IJKC 
FXPREC 

C»CLPl 



C»tR^«D 
510 

T55RWN 
PKTSSR 

CICLPI 



CURHRO 
511 

155601 
f XPRfcC 

C?CLPl 



TLST 5: DATA PARITt Tt ST 



'iF^^ OIV. 



-5.^74 

^^7Q 

5279 

3280 
3?81 
3a6b 



3286 

3287 
3288 
3289 
3290 
3291 
3292 
3296 



3297 

3298 
3299 

3300 
3301 
3302 
3303 
3307 



3308 

3309 
3310 
3511 
3312 
3315 
3317 



33ie 



054052 
054056 
054062 
0540 70 
054076 
054102 
054110 
054114 
054120 
054124 
054130 
054152 
054134 
054140 
054140 
054142 
054144 
054146 
054150 
054150 
054152 
054156 
054160 
054164 
054166 
054170 
054174 
054174 
054176 
054200 
054202 
054204 
054204 
054206 
054212 
054^14 
054220 
054222 
054224 
05423 
054250 
054232 
054254 
054256 
054240 
054240 
054242 
054246 
054252 
054254 
054256 
054262 
054262 
054264 
054266 
OS4270 
054272 



00503/ 
01.* 703 
013737 
012757 
012704 
012737 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
OOIOOO 
055517 
012126 

104406 
013701 
010102 
052 702 
020102 
001406 
005237 

104456 
00 ICO I 
055202 
015554 

104406 
013701 
010102 
05270? 
020102 
001406 
005237 

104456 
001002 
054754 
015554 

104406 
017701 
013702 
020102 
001406 
005237 

104456 
001005 
055600 
01S5M 



054 75C 
000024 
003116 
140001 
054 720 
000024 
000000 
016550 
000002 
100210 



002214 



05463? 
000002 

002214 



054632 
000400 

002214 



126650 

054750 



0022X4 



054 ;^\' 

054 n^o 

054726 



155$: 



160$; 



170$: 



CI H 


T^5rNU 


iCl f AR DATA VAt UF IN R' 


MOV 


020. .R3 


iHfcCORO Sl/t 


MOV 


fRt.L.15^RU 


jSTARriNC. URIfL BU* MR 


MOV 


0140001 .T3^PK3 


iRfAO OATA.CVC-l,^>CK C 


MOV 


0T53PK5.R4 


iSF.T iJP R4 WIIH r^ACKt T 


MOV 


020. . T*V,/ 


iSFT tJP RFCORD SI/F lU 


MOV 


R4, TSOD(R*. 1 


jl'jbUt COMMAND 


J'jW 


PC.WAITf 


IJAIT FOR S^iR TO SFT 


MOV 


TbSR(R5).Hl 


(GET Tf,SR CONTENTS 


MOV 


0SSfl!SC!BIT3,R2 


iS(-T UP FXPFCieU 


CMP 


R1.H2 


lARF THF. T rOUAL 


BtCl 


1601 


iHR, IF OK 


tNC 


^ ATFLO 


jfRROR COUNT 


ERRHRO 


FRRN0,T33W0C,PKrSSR 


iTSSR INCORRF.CT AFTF.R 1 



CKl OOP 

MOV 
MOV 
Bin 
CMP 
BEG 
INC 
FRRHRO 



180$: CKLOOP 

MOV 
MOV 
CMP 
BEQ 
[NC 
ERRHRD 



RFCORD 

AflOHF '. 
COMMAND 
ADORt :.' 
PAC't^T 



T55BFR.10.R1 

RI.R2 

oeiTl.R? 

R1.R2 

1701 

FATFLG 

ERRNO.T35UNO.fcXPRtC 



CKLOOP 




MOV 


T558FR.10,R1 


MOV 


Rl.fl2 


BIS 


♦eiTe.R2 


CMP 


R1.R2 


BEQ 


180$ 


INC 


FATFLG 


ERRHRD 


F.flRN0.T55RBP,FXPREC 



8FREE.R1 

T53CNU,R2 

R1,R2 

182$ 

FATFLG 

bRRN0.T33DTA,eXPRtC 



It OOP IF 



ORRF.CT 


AFTER 


WRiTt DATA 






TRAP 


CIFRHRD 






.WORD 


512 






.WORD 


T33WOC 






.UORO 


PKTSSR 


SELECT! 


.0 







[PICK UP XSTl 

iSET UP EXPECTFD 

(SFT UNC BIT IN FXPRCTEU 

iDOES PXP • REC'O 

(BR. IF EQUAL (OK) 

I ERROR COUNT 
lUNC BIT NOT SET AFTER 



TRAP 



CiCLPl 



ILOOP IF SELECTED 



READ CMO 
TRAP 
.WORD 
.WORD 
.WORD 



(PICK UP XSTl 

(SET UP EXPECTED 

(SET RBP BIT IN EXPECTED 

(DOES MP - RtC'D 

iSR, IF EQUAL (OK) 

(ERROR COUNT 
(READ BUS PARITY ERROR 



TRAP 



C$ERHRO 
515 
T33lfO 
eXPRFC 

CICLPI 



182$ 



CKLOOP 



(LOOP IF SEIFCTED 

(GET DATA READ 

(GET PATTERN 
(ARE THEY EQUAL 
iBR, IF OK 

(ERROR COUNT 
(DATA NOT CORRECT 



iLOQP ir SELECTED 



BIT NOT 
TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



SI T 
C$FRHRD 
514 

T55RBP 
EXPREC 

C$CLP1 



TRAP 
.WORD 
.WORD 
.WORD 



C$FRH«0 

515 

T550rA 

EXPREC 



TI-ST I HAHOWARt rtST 1 i\ IKST MACMO MU>00 »'0 MAH-H4 OH : nO PAtJF ,»^. h^^ 
TtST 5j DATA PARITt Tt.bT 



5519 
3520 
3521 
55?2 
3523 
?5?4 
3525 
5526 
5527 
3528 
55,?9 
3333 



3354 

5535 
3356 
5557 
5338 
3559 
5540 
5344 



3545 

3546 

5547 
5346 
3549 
3550 
5551 
3355 



3556 

5557 
5558 
3559 
5560 
3561 
3365 



3366 



054P72 
054274 
054302 
054510 
054514 
054522 
054526 
054552 
054356 
054542 
054544 
054546 
054552 
054552 
054354 
054556 
054560 
054562 
054562 
054564 
054570 
054572 
054376 
054400 
054402 
054406 
054406 
054410 
054412 
054414 
054416 
054416 
054420 
054424 
054426 
05445? 
054454 
054456 
054442 
054442 
054444 
054446 
054450 
054452 
0S4452 
054454 
054460 
054464 
054466 
054470 
0544 74 
054474 
054476 
054500 
054502 
054504 
054504 



104406 
015737 
012757 
012704 
012757 
010465 
004757 
016501 
012702 
020102 
001406 
005257 

104456 
001004 
055517 
012126 

104406 
015701 
010102 
052702 
020102 
001406 
005257 

10<456 
001005 
055202 
015554 

104406 
01570.1 
010102 
052702 
020102 
001406 
005257 

104456 
001006 
054754 
015554 

104406 

017701 
013702 
020102 
001406 
005237 

104456 
001007 
055600 
015554 

104406 



005116 
140401 
054720 
000024 
OOOOOO 
016530 
000002 
10C210 



002214 



054 722 
054720 

054726 



195$ ! 



M(JV 
MOV 
MGV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BKU 
INC 
ERRHRD 



190$: CKLOOP 



054632 
000002 

002214 



200i! CKLOOP 



054652 
000400 

002214 



210J: 



126456 
054750 



0022K 



CKLOOP 

MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



215»: CKLOOP 



^Ret,T55uB 

<H40401,T33PI<5 

*T55PI<5.R4 

020, .T35SZ 

R4.T5DB(R5) 

PC.UATTF 

T3GR(R5).Rl 

<^SC!SSR!BIT3.R2 

R1.R2 

190$ 

FA TUG 

ERRN0,T53WDC.PKT5SR 



MOV 


T55BrR»10,Rl 


MOV 


R1.R2 


BIS 


*eiTl,R2 


CMP 


R1.R2 


BEQ 


200 » 


INC 


FATFLG 


ERRHRD 


ERRNQ.T33UND.bXPREC 



MOV 


T55BFR»10,R1 


MOV 


R1.R2 


BIS 


*eiT8,R2 


CMP 


R1,R2 


BEQ 


2101 


INC 


KATFLG 


ERRHRD 


ERRN0.T53RBP.EXPREC 



BFREE.Rl 

T35CNU,R2 

R1.R2 

2151 

FATFLG 

&RRN0,T330TA,EXPREC 



.f^j or.9 



TRAP CiCl T'l 

(READ REVe.RSF DATA RETR^ACK COMMAND 



r.TARTIf^j WRITE b'JFF ER ADDHt. 



RACIST 



(SET UP R4 WITH PACKET 

»Se r UP RECORD Sl/h IN 

I ITiSUE COMMAND 

jWAIT FOR 5SR TO SET 

iGET TSSR CONTENTS 

,SET UP EXPECTED 

(ARE THET EQUAL 

J BR, IK OK 

I ERROR COUNT 

(TSSR INCORRECT AFTER WRITt DA 

TRAP 
.WORD 
.WORD 
.WORD 

iLOOP IF SELECTED 

TRAP 

(PICK UP XSTl 

iSET UP EXPECTED 

(SET UNC BIT IN EXPECTED 

;DOES EXP - REC D 

»BR. IF EQUAL (OK J 

i ERROR COUNT 

(TAPE NOT AT BUT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 



TA 



CIEMK«U 
516 

T55WDC 
PKTSS« 

C$CLP1 



(LOOP IF SELECTED 



(PICK UP XSTO 

(SET UP EXPECTED 

(SET RBP BIT IN EXPECTED 

(DOES EXP - REC'D 

(BR, IF EIXJAL (OK) 

; ERROR COUNT 
(READ BUS PARITY ERROR 



(LOOP IF SELECTED 

(GET DATA READ 

(GET PATTERN 
(ARE THEY EQUAL 
iBR. IF OK 

(ERROR COUNT 
(DATA NOT CORRECT 



(LOOP IK SLLtClEO 



TRAP 



CIERHRD 
517 

T35UN0 
EXPREC 

CJCLPl 



BIT NOT 


SET 


TRAP 


CJERHRD 


.WORD 


518 


.WORD 


T53R6P 


.WORD 


EXPREC 



TRAP 



CiCLPl 



TRAP 

.WORD 

.WORD 

.WORD 

TRAP 



ClhHHRU 
519 
T330TA 
FXPREC 

CJCLPl 



TFST 1 HARDWARt: THST 18 TtST MACRO M1?00 :'0 MAR ■ 84 Ofi:44 PAGt". c-'li 66 
TEST 5: DATA PARITY TFST 



'jFQ 0160 



3367 
3368 
3369 
3370 
3371 
3372 
3373 
3374 
3375 
5376 



33?7 
3.'7S 
3?. 79 
33.^0 
33fcr 
338:^ 
3383 
3384 
3385 
3386 
3387 



3388 
3389 
3390 
3392 
3394 
3395 
3396 
3397 
3398 
3399 
3400 
3401 
3402 
3403 
3404 
3405 
3406 
3407 
3408 
3410 
.3412 
3413 
5414 
3415 
3416 
3417 
3421 
3422 
342? 
3424 
3425 
5426 



054506 
054510 
054514 
054520 
054522 
054526 
054530 
054532 
054536 
054536 
054536 
054536 
054540 
054546 
054550 
054554 



054554 
'^54560 
f 54562 
C 54 566 
0.^4566 
054570 



054600 
054600 
054602 
054604 
054606 
054610 
054610 
054612 
054614 
054616 
054620 
054622 



054710 
054710 
054712 
054714 
054716 

054720 
054720 
054722 
054722 
054724 

054726 



010302 

012703 000001 

00473/ 010544 

010203 

005237 054 750 

005303 

001402 

000137 054062 



104403 

023727 002214 000017 

103402 

004737 017262 



004737 016536 

103002 

000137 053126 

104432 
001300 



054600 

100004 
054610 
000000 
000012 

054622 
OOOOOO 
000024 
OOOOOO 
OOOOOO 



054710 

100006 
054 730 
OOOOOO 
000006 



100005 

003116 
OOOOOO 
OOOOOO 



MOV 


R3.R2 


MOV 


^1,R3 


JSR 


PC, SPACE 


MOV 


R2.R3 


INC 


T33CNU 


DF.C 


R3 


BbQ 


220 J 


JMP 


155$ 



220$: 



999$; 



ENDSUO 



CMP 
BLO 
JSR 



FATFLG,#15 

9991 

PC.CKDROP 



230 «: 



JSR 


PC.TSTLOOP 


BCC 


230$ 


JMP 


T33LOOP 


EXIT 


TST 



! LOCAL STORAGE 


FOR THIS 


. '< , *10>6177770 


T33PACKET: 




.WORD 


100004 


.WORD 


T330ATA 


.UURD 





.WORD 


10. 


T33DATA: 




.WORD 


T33BFR 


.WORD 





.WORD 


20. 


.WORD 





T330SW: .WORD 





T33BFR: .BLKW 


25. 



;'VRITE SUBSYSTEM MEMORY COMMAND PACKET 



t 



T33PK2: 



.■<. •10>6177770 





.UORD 


100006 




.WORD 


T33BF2 




.WORD 







.WORD 


6. 


T33PK3: 








.WORD 


100005 


T33RB: 






T33WB: 


.WORD 


FREE 




• WORD 





T33SZ: 


.WORD 






IjAVE R3 fur a MOMfcNr 

SPACE FORWARD ONF. RECORD 

CALL ROUTINE 

RFSTQRE R5 

BUMP TO NtXT RECORD NUMQfR 

BUMP COUNTFR 

BR. IF DONE 

BR, IF NOT DONE YFT 

<<<<<<<<< i<<< END SUBTEST >^>-.^>.>.>^. 

L10O60: 

TRAP C$tSUB 
IS ERROR COUNT AT 25 
BR, IF LFSS THAN ^5 
TRY TO DROP THE UNIT 



iDO WE NEED TO ITERATE TEST 

tBR. IF NO LOOP REQUIRED 

(EXECUTE AGAIN 

J ALL DONE THIS TEST 

TRAP C$FXIT 
■WORD L 10057 



(COMMAND PACKET FOR TEST 

(WRITE CHARACTERISTICS COMMAND. WITH , ACK 

(ADDRESS OF CHARACTERISTICS BLOCK 

(STARTING VALUE OF BLOCK SIZE 
(CHARACTERISTICS DATA BLOCK 
(ADDRESS OF MESSAGE BU*->ER 

(LENGTH OF MESSAGE BUFFER 

(SELECT DRIVE 
(MESSAGE BUFFER 



(WRITE sue SYS MEM COMMAND, AND ACK 
(ADDRESS OF SELECT BLOCK DATA 

(SIZE OF DATA PACKET 



(REREAD COMMAND, AND ACK 
(ADDRESS OF WRITE BUFFER 
(SIZE OF BUFFER (EXTENTS 
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SFQ 0161 



34? 7 
342» 
3429 
3430 
3431 
3432 
3453 
3434 
3435 
3436 
3437 
3436 
3459 
3440 
3441 
3442 
3443 
5444 
3445 
3446 
3447 
34Ae 
3449 
3450 
3451 
3452 
3453 
3454 
3455 
3456 
3457 
34 5S 
3459 
5460 
3461 
5462 
3463 
3464 
5465 
3466 
3467 
5468 
3469 
5470 
5471 
3472 
3475 
5474 
5475 
3476 
5477 
5478 
3479 
5480 
3481 
3482 
3483 



054730 
054730 
054 731 
054732 
054734 



054736 
054740 
054742 
054744 



054 746 
054750 
054752 



054754 
055032 
055112 
055202 
055271 
055355 
055450 
055517 
055600 
055675 



055712 
055712 
055716 
055722 
055726 
055732 
055754 
055740 
055744 
055746 
055752 
055754 



010 

200 

000000 

000000 



100205 
100605 
102205 
177777 



000000 
000000 
000000 



122 
124 
125 
125 
127 
124 
122 
124 
104 
104 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
012711 



145 
123 
116 
116 
122 
141 
145 
123 
141 
141 



141 
123 
103 
103 
111 
160 
167 
123 
164 
164 



054600 
100004 
054610 

000012 
054622 

000024 
000000 



.f.VhN 



T33BF2: 






T33B50: 


.BYTt 


10 


T33BS1: 


.BVTF 


200 


T33S2: 


.WORD 





T33S3: 


.WORD 






BStL ARhA 
B'oLLl ARtA 
SEL 2 AREA 
DATA ARtA 



.EVEN 
jTAPE MOTION PACKET COMMAND VALUES 



T33RN: 

T33WDR: 

T33C0N: 



T33CNT 
T33CNU 
T35DLY 



.WORD 
.WORD 
.WORD 
.WORD 



100205 
100605 
102205 
177777 



.WORD 
.WORD 
. WORD 



REREAD DATA (NEXT) 
REREAD DATA RETRf 
WRITE CONTINOUS 
J END or DATA 



TAPE TIMER COLtJTtR STORAGE AREA 
TAPE TIMER COUNTER STORAGE AREA 
DELAY COUNTER 



i LOCAL TEXT MESSAGES FOR TEST 



T35RBP 

T33WPW 
T33UNC 
T33UN0 
T33SSR 
T35B0T 
T55RWN 
T33WOC 
T33DTA 
TST33ID 



.ASCIZ 'R^ad Bu« Par Ity Bit Not S«t CXSTl), Should Be' 

.ASCIZ ' TSSR Incorrect After Wrong Parity Write Coffwumd' 

.ASCIZ 'UNC Bit CXSTl) Not Set After Wrong Parity WRITE Cotmand' 

.ASCIZ 'UNC Bit CXSTl) Not Set After Wrong Parity READ Command' 

.ASCIZ 'WRITE MlSi^CELLANEOUS CONT/REAO COMMAND Not Accepted' 

.ASCIZ 'Tape Not At BOT After REWIND Command (BOT Not Set In XSTO)' 

.ASCIZ 'Rewind CPOSITION) Command Not Accepted' 

.ASCIZ ' TSSR Not Correct After READ Wrong Parity Command' 

.ASCIZ 'Data Compare Error. Data Read From Tape Not Equal To Written' 

.ASCIZ 'Data Parity' 
.EVEN 



ROUTINE TO RESTORE COMMAND PACKET TO START-UP CDEFAUL.T) VALUES 
WRITE SUBSYSTEM MEMORY COMMAND 



T33REST 



SAVREG 

MOV #T35PACKET.R1 

MOV 0100004, CRD » 

MOV OT330ATA.CR1)* 

Cl.R CRD* 

MOV *10. .(Rl)» 

MOV OT33BFR.CR1)* 

CLR (Rl)» 

MOV 020. .CRD* 

CLR (Rl)> 

MOV 00. CRD 



;SAVE THe REGISTERS 

I START OF THE PACKET 

;WRITE SUBSYSTEM MEM. WITH ACK . 

I ADDRESS OF CHARAISTICS DATA BLOCK 

(EXTENDED ADDRESS 

iSIZE OF DATA BLOCK IN BYTES 

(ADDRESS OF MESSAGE BUFFER 

(LENGTH OF MESSAGL BUFFER 

(SELECT DRIVE ZERO 
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?484 
3485 
3486 
3487 
3488 
3489 
?490 
3491 
349^ 
5493 
3494 
3495 
3496 
3497 
3498 
3499 
3500 
3501 
3502 
3503 
3504 
3505 
3506 
3507 
3508 
3509 
3510 
3511 



3512 
3513 
3514 
3515 
3516 
3517 
3518 
3519 
3520 
^521 
^522 
3523 
3524 

3525 
3530 
3531 
3532 
3533 
3534 
3535 
5536 
3J37 
3538 
3539 
3540 
3541 



055760 
055764 
055772 
055774 
056000 
C56002 

056004 
056004 
056010 
056014 
056020 
056024 
056026 
056032 
056034 
056040 
056042 
056044 
056046 
056046 
056052 
056056 
056060 
056062 
056064 
056066 
056070 
056070 
056070 



056072 
056072 
056072 
056100 
056104 
056110 
056116 



012 702 
012/63 
005742 
022702 
001371 
000207 



012 701 
012721 
012721 
005021 
012721 
005021 
012701 
005021 
005011 
000207 



012701 
005021 
005021 
005021 
005011 
000207 



104401 



012737 
012700 
004737 
012737 
005037 



000030 
1777 7 : 

oooooo 



054622 



054710 
100006 
054730 

oooooe 

054730 



054720 



MOV 


*24. .R2 


64$: MOV 


^177777. T33BFR(R2) 


TST 


-(R2) 


CHP 


00.^2 


BNe: 


64$ 


RTS 


PC 


T33RT2: 




SAVRFG 




MOV 


*T33PI<2,R1 


MOV 


<?100006,(Rn. 


MOV 


*T33Bf 2, CRD* 


CLR 


(RD* 


MOV 


*6. ,(Rn> 


CLR 


CRD* 


MOV 


5T358F2»R1 


CLR 


CRD* 


CLR 


(Rl) 


RTS 


PC 


T33RT3t 




SAVREG 




MOV 


OT33PK3.R1 


CLR 


CRD* 


CLR 


(RD* 


CLR 


(RD* 


CLR 


fRD 


RTS 


PC 


ENDTST 





I NUMBER OF LOCATIONS TO BE CLtARfcD 

jALL ONES TO ME«^SAGF. BUFFER 

(NEXT LOCATTON 

J AT END OF LOOP rET 

J KEEP GOING UNTIL DONE 

(RETURN 



SAVE THE REGISTERS 

START OF THE PACKET 

WRITE SUBSYSTEM MEM. WITH ACK , 

ADDRESS Oi- DATA BLOCK 

EXTENDED ADDRESS 

SIZE OF DATA BLOCK IN BYTES 

(POINT TO DATA SEL AREA 



iRETURN 

iSAVE REGISTERS 

J SET UP POINTER ADDRESS 

i COMMAND SPACE 

I ADDRESS OF DATA BLOCK 

J EXTENDED ADDRESS 

;SIZE OF DATA TRANSFER BLOCK 

J RETURN 



L100571 



.SBTTL TEST 6: OPERATIONS AT EOT 



TRAP 



C$ET5T 



THIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY 
COMMAND (SPACE REVERSE, ERASE, WRITE DATA) 



THE TEST CONSISTS OF THE FOLLOWING 1 SUBTEST 



006354 
063237 
0^6570 
0O0005 
060722 



002172 



002210 



BGNTST 

MOV 
MOV 
ISR 
MOV 
CLR 



^>EPRT1,EPRTSW 

#TST34ID,R0 

PC.TSTSETUP 

d5,L00PCNT 

T34CNT 



T6: : 
I PRIMARY ERROR MESSAGE 
I ASCII MESSAGE TO IDENTIFY TEST 
jOO INITIAL TEST SETUP 
(PERFORM 5 ITERATIONS 
(CLEAR TAJ^E RECORD COUNTER 



(TEST 6. SUBTEST 1 



THIS TEST VERIFIES THAT THE EOT STATUS IS HANDLED PROPERLI Bt 
THE VARIOUS TAPE MOTION COMMANDS. THE FOLLOWING TEST SEQUENCE 
IS PERFORMED: 
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St'Q 0165 



3544 
3545 
3546 
354 ; 
354Q 
3-349 
3550 
3551 
3552 
3553 
3554 
3555 
3556 
3557 
3558 
3559 
3560 
3561 
3562 
3563 
3564 
3565 
3566 
3567 
3568 
3569 
3570 
3571 
3572 
3573 
3574 
3575 
3576 
3577 
3578 
3579 
3560 
3581 
3582 
3583 
3584 
3585 
3586 
3567 
3588 
3589 
3590 
3591 
359? 
3593 
3594 
3595 
3596 
3597 
35^8 



1. THE TAPE IS REWOUND, 

2. WRITE DATA COMMAWS ARE REPEATEDLf ISSUED UNTIl TAPE 
STATUS ALERT TERMINATION IS SEEN WITH EOF-l. ERRORS 
OTHER THAN OCCASIONAL CORRECTABLE OR UNCORRECTABLE DATA 
ERRORS CAUSE A TATAL ERROR REPORT. RECORDS WITH DATA 
ERRORS ARE RETRIED. SO THE TAPE ENDS UP WITH GOOD DATA. 

3. ANOTHER WRITE DATA COMMAND IS ISSUED. AND IT IS CHECKED 
THAT TAPE STATUS ALERT TERMINATION OCCURS, WITH E0T"1. 

4. A WRITE TAPE MARK COMMAND IS ISSUED. AND IT IS CHECKED 
THAT TAPE STATUS ALERT TERMINATION OCCURS, WITH EOT-1. 

5. A SKIP TAPE MARKS REVERSE COMMAND IS ISSUED. ANO IT IS 
CHECKED THAT TAPE STATUS ALERT TERMINATION OCCURS, WITH 
EOT-: ANO TMK-1. 

6. A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT QK 
1, IS ISSUED. ANO IT IS CHECKED THAT TAPE STATUS ALERT 
TERMINATION OCCURS, WITH EOT-1 ANO TMK-1. 

7. A SPACE RECORDS REVERSE COMMAND, WITH A RECORD Ca.JNT Qf 
1. IS ISSUED, ANO IT IS CHECKED THAT NORMAL TERMINATION 
OCCURS, WITH EOT-1. 

8. A SPACE RECORDS FORWARD COMMAND. WITH A RECORD COUNT Of 
1, IS ISSUED, ANO IT IS CHECKED THAT NORMAL TERMINATION 
OCCURS. WITH EOT-1. 

9. A READ REVERSE COMMAND IS ISSUED. AND IT IS CHECKED 
THAT NORMAL TERMINATION OCCURS. WITH EOT-1. 

10. A READ FORWARD COMMAND IS ISS'JED. ANO IT IS CHECKED 
THAT NORMAL TERMINATION OCCURS. WITH EOT'l, 

11. A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT Qf 
3. IS ISSUED, ANO IT IS CHECKED THAT NORMAL TERMINATION 
OCCURS, WITH EOT-0. 

12. A SPACE RECORDS FORWARD COMMAND, WITH A RECORD COUNT OF 
3, IS ISSUED. AND IT IS CHECKED THAT NORMAL TERMINATION 

OCCURS. WITH EOT-1. 

13. A SKIP FILE MARKS REVERSE CC^^AND IS ISSUED. WHICH 
SHOU..D SKIP ALL THE WAY TO BOT . ANO IT IS CHECKED THAT 
TAPE STATUS ALERT TERMINATION OCCURS. WITH EOT-O, 
BOT-1, AND RlB-1. 



056122 



T34LQ0P 



1.-^. 
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SEQ OlM 



35<)9 

3600 
3601 
360^ 
3603 
3604 
3605 
3606 
3607 
3608 
3609 
3610 
3611 
361.? 
3613 
3614 
3615 
3616 
3617 
3618 
3619 
36c?0 
3621 



3622 
3623 
3624 
3625 
3626 
3627 
3628 



3629 
3630 
3631 
3632 
3633 
3634 
3638 
3639 



3640 

3641 
3642 
3643 



056122 
056122 
056122 
056124 
056130 
056134 
056140 
056146 
056152 
056154 
056154 
056160 
056162 
056166 
056170 
056174 
056176 
056202 
056204 
056210 
056214 
056216 
056222 
056224 
056250 
056232 
056232 
056234 
056236 
056240 
056242 
056242 
056244 
056252 
056260 



104402 
004 737 
004737 
004 737 
C12737 
004737 
103433 

012727 
000000 
013727 
000000 
005367 
001575 
005367 
001567 
016501 
032701 
001012 
005337 
001351 
005237 
010001 

104455 
001131 
003646 
012114 

104406 
013737 
052737 
0127CA 



TEST 6. SUBTEST 1 

VERIFIES THAT WRITING OVER THE END-OF^TAPE (EOT) 
MARKER CAUSES TAPE STATUS ALERT TERMINATION. IF THE 
TAPE TRANSPORT DOES NOT RECOGNIZE THE EOT MARKER, THE 
TAPE WILL RI>J OFF THE END OF THE REEL. CAUSIf4G THE 
PROGRAM SEQUENCE TO BE ABORTED WITH A FATAL ERROR 
INDICATION. IN THIS CASE. CORRECTIVE MAINTENANCE 
MUST BE PERFORMED USING THE TRANSPORT'S BUILT-IN 
MAINTENANCE ROUTINE AVAILIARLE VIA THE FRONT PANEL . 
IF THE CONTROLLER DOES NOT RECOGNIZE THE EOT. THE 
TRANSPORT WILL FAULT BUT THE TAPE WILL NOT RUN OFF 
THE END OF THE REEL BUT THE TRANSPORT MUST BE 
MANUALLY PLACED BACK ON-LINE TO BE USABLE. THIS IS A 
FATAL DIAGNOSTIC ERROR. 



BGNSUB 



063262 

063416 

063354 

176750 060724 

016054 



000250 

002116 

177772 

177756 

000002 
000200 

060724 

002214 



10$ 



J5R 


PC,T34REST 


JSR 


PC.T34RT3 


JSR 


PC.T34RT2 


MOV 


065000. .T34DLY 


JSR 


PC.SOFINIT 


BCS 


20$ 


DELAY 


250 



MOV 


TSSR(R5).R1 


BIT 


CSSR.Rl 


BNE 


20i 


DEC 


T54DLY 


BNE 


10$ 


INC 


FATFLG 


MOV 


RO.Rl 


ERROF 


ERRNO.SFIERR.SFIMSG 



'f>$ 



002174 060610 
000040 060610 
060570 



CKLOOP 

MOV 
BIS 
MOV 



UNITN.T34DSW 
0BIT5.T34DSW 
<?T34PACKET.R4 



,>>>>>>>>>>>> BEGIN SUBTEST 

T6.1: 

TRAP 
J SET COMMAND PACKET 
:RE5T0RE PACKET 
;SET UP OTHER COMMAND PACKET 
I SET UP COUNTER 
;D0 INITIALIZE ON CONTROLLER 
iBR IF INIT WAS OK 
J DELAY A WHILE 



>>>>>>>>>>>> 



CJBsue 



MOV 


*250.CPC)» 


.WORD 





MOV 


L$Dl.Y.(PC)* 


.WORD 





DEC 


■6(PC) 


BNE 


. 4 


DEC 


■c"!2CPC:i 


BNE 


. -20 



iGET TSSR STATUS 

t CHECK FOR SSR SET 

iBR. WHEN SSR IS SET 

I BUMP COUNTER DOWN 

J BR. IF MORE DELAY REQUIRED 

i ERROR COlff^T 
J CONTENTS Of TSSR REGISTER 
(FATAL ERROR TSSR 



WAS 



LOOP IF sel:^.cted 



(SET UP DRIVE 
(TURN ON HIGH 



NOT OK 
TRAP 
.WORD 

.WORD 
.WORD 

TRAP 



CSFROF 

601 

SF^IbRR 

SFIMSG 

C$CLP1 



NUMBER 

SPEED TO SAVE TIME 



;UBROUTINE NEEDS PACKET ADDRESS 
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3644 


056264 


004 73/ 


0:0742 


3645 


056270 


103407 




3646 


056272 


00523 7 


002214 


3650 


056276 


010001 




3651 


056300 








056300 


104456 






056302 


001132 






056304 


005052 






056306 


012114 




3652 


056310 








036310 


104406 




3653 


056312 


004737 


01;.074 


3654 


056316 


103411 




3655 


056320 


016501 


000002 


3656 


056324 


010004 




3657 


056326 


005237 


002214 


3661 


056332 








056332 


104456 






056334 


001133 






056336 


06236 7 






056340 


012126 




3662 


056342 








056342 


104406 




3663 


056344 


012737 


140005 060710 


3664 


056352 


012705 


176750 


3665 


056356 


013737 


003116 060712 


3666 


056364 


012737 


006654 060716 


3667 


056372 


012704 


060710 


3668 


056376 


010465 


000000 


3669 


056402 


004737 


016330 


3670 


056406 


016501 


000002 


3671 


056412 


012702 


000200 


367? 


056416 


020102 




3673 


056420 


001010 




3^74 


056422 


005303 




3675 


056424 


001364 




3676 


056426 


005237 


002214 


36B0 


056432 








056432 


104455 






056434 


001134 






056436 


062146 






056440 


012126 




3681 


056442 


032701 


000004 


3682 


056446 


001001 




3683 


056450 


000752 




3684 


056452 


013701 


060620 


3685 


056456 


010102 




3686 


056460 


052702 


000001 


3687 


056464 


020102 




3688 


056466 


001402 




368<; 


056470 


000137 


056376 


3690 


0564 74 








056474 


104406 




3691 


056476 


012737 


140005 060710 


3692 


056504 


013737 


003116 060/12 


3693 


056512 


012737 


006654 060716 


3694 


056520 


012704 


060710 



30$ 



JSR 
BCS 
INC 
MOV 
ERRHRD 



CKLOOP 



35$ 



CKLOOP 



40$ 



50$ 



60$ 



60$ 



PC.WRTCHR 

30$ 

FAVKl G 

RO.ni 

ERRiNO , WRTMSG , Sf IMSG 



JSR 


PC. REWIND 


BCS 


35$ 


MOV 


T5SRCR5>.R1 


MOV 


R0.R4 


INC 


FATFLG 


ERRHRD 


ERRN0,T34RWN,PI<TSSR 



MOV 


<H40005,T34PK3 


MOV 


#65000. ,R3 


MOV 


FREE.T34UB 


MOV 


#3500. .T345i. 


MOV 


#Vo4PK3.R4 


MOV 


R4.TS0BCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


#SSR , R2 


CMP 


R1.R2 


BNE 


50$ 


DEC 


R3 


BNE 


40$ 


INC 


FATFLG 


ERRDF 


ERRN0,T3AcT.Pl<TSSR 



BIT 


<»eiT2.Rl 


BNE 


60$ 


BR 


40$ 


MOV 


T34BFR»6.R1 


MOV 


RI.R2 


BIS 


#eiT0.R2 


CMP 


R1,R2 


BEQ 


801 


JMP 


40$ 


CKLOOP 




MOV 


#140005. T34PK3 


MOV 


FREE,T34UB 


MOV 


#3500. .T34S/ 


MOV 


#T34PK3.R4 



SFQ 016! 



ISSUE WRITE CHARACTERISTICS 

BR, IF COMMAND ISSUED OK 
! ERROR COUNT 

SAVE CONTENTS Of T5.SR 

WRITE CHARACTERISriSC FAll ED 

TRAP 
.WORD 
.WORD 
.WORD 



LOOP IF SELECTED 



TRAP 



C$ERHRD 

WRTMS'j 
SFIMSU 

C$CLP1 



OK (GOOD) 



; REWIND CAl L 

iBR. If TSSR 

J GET TSSR 

;SET UP PACKET 

J ERROR COUNT 

I TSSR IS INCORRECT AFTER REWIND 

TRAP C$EHHRD 

•WORD 603 
.WORD T34RWN 
.WORD PKTS5R 

J LOOP IF SELECTED 

TRAP CJCLPl 

;WRITE DATA, ACK . CVC-1 
;SET MAX NUMBER OF WRITES 
I SET UP WRITE BUFFER ADDRESS 
;SET UP BUFFER SIZE (4K BYTES) 
;R4 - POINTER TO PACKET 
; ISSUE COMMAND 
;WAIT FOR S5R TO SET 
(GET TSSR CONTENTS 
J SET UP EXPECTED 

ARE THEY EQUAL 

BR. l! MIGHT BE END OF TAPE 

DEC RECORD COUNTER 
J BR. IF MORE TO GO 

(ERROR COUNT 
(EOT NOT FOUND (USE SHORTER TAPE?) 

TRAP C$ERDF 

. WORD f^04 
.WORD T54tT 
.WORD PKTS5R 
I CHECK FOR TAPE STATUS ALERT 
;BR, IF SET 
;KEEP GOING 
iPICK UP XSTO 
:SET UP EXPECTED 
jSET THE EOT BIT ON IN EXPECTED 
J WAS THE BIT ON 
iBR. IF EOT WAS FOUND 
J KEEP LOOKING 
jLOOP IF SELECTED 



TRAP 
WRITE DATA. ACK, CVC'l 
SET UP WRITE BUFFER ADDRESS 
SET UP BUFFER SIZE (4K BVTtS) 
R4 - POINTER TO PACKET 



C$CLP1 



I ■ 1 - -> 
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bt'J 0166 



3695 


056524 


010465 


000000 


36<^6 


056530 


004 737 


016350 


369 7 


056534 


016501 


000002 


5608 


056540 


012702 


100204 


3699 


056544 


020102 




3700 


056546 


001406 




?701 


056550 


005237 


002214 


3 705 


056554 








056554 


104456 






056556 


001135 






056560 


061417 






056562 


012126 




3706 


056564 








056564 


104406 




3707 


056566 


013701 


060620 


3708 


056572 


010102 




3709 


056574 


052702 


000001 


3710 


056600 


020102 




3711 


056602 


001406 




3712 


056604 


005237 


002214 


3716 


056610 








056610 


104456 






056612 


001136 






056614 


061501 






056616 


015554 




3717 


056620 








056620 


104406 




3718 


056622 


012737 


140011 060710 


3719 


056630 


012704 


060710 


37C0 


056634 


010465 


000000 


3721 


056640 


004737 


016350 


3722 


056644 


016501 


000002 


3723 


056650 


012702 


100204 


3724 


0566 S4 


020102 




3725 


056656 


001406 




3726 


056660 


005237 


002214 


3730 


056664 








056664 


104456 






056666 


001137 






0566 /O 


061330 






056672 


012126 




3731 


056674 








056674 


104406 




3/32 


056676 


013701 


060620 


3733 


056702 


010102 




3734 


056704 


052702 


000001 


3735 


056710 


020102 




3756 


056712 


001406 




3737 


056714 


005237 


002214 


3741 


056720 








056720 


104456 






056722 


001140 






056724 


061032 






056726 


015554 




3742 


056750 








056730 


104406 




3743 


056732 


012737 


141410 060/10 



90$ 



100$ 



110$ 



120$ 



MOV 


R4.TSDBCR5) 


JSH 


PCWAITF 


MOV 


TSSRCR5).R1 


MOV 


^?SC!SSR!BIT2.R2 


CMP 


R1.R2 


^ ^ 


90$ 


.NC 


FATf-1 ti 


ERRHRD 


ERRN0,T34tT2.Pl<TSSP 



CKL.OOP 



MOV 


T34BFRt6,Rl 


MOv 


R1.R2 


BIS 


^IT0,R2 


CMP 


R1.R2 


BEQ 


100$ 


INC 


FATFLG 


ERRHRO 


ERRN0,T34ETN.EXPREC 



CK1.00P 

MOV 
MOV 
MOV 
J5R 
MOV 
MOV 
CMP 
BtQ 
INC 
ERRHRO 



CKLOOP 

MOV 
MOV 
BIS 
CMP 
BEQ 
INC 
ERRHRO 



«140011.T34PK3 

<H34PK3.R4 

R4»TSDBCR5) 

PC.WAITF 

TSSRCR5),R1 

^SC:5SR!BIT2.R2 

R1.R2 

110$ 

FATFLG 

ERRN0,T34WTM,PI<TS5R 



T54BFR*6,R1 

R1.R2 

W3ITO,R2 

R1.R2 

120$ 

FATFLG 

ERRNO,T54ETO,tXPRtC 



CKLOOP 

MCV <n41410,T34PI<3 



; ISSUE COMMAND 

iUAir FOR S5R TO SET 

iGET TSSR CONTENTS 

I SET UP EXPECTED 

;ARE THEY EQUAL 

[BR, IF THE I' ARE OK 
; ERROR COUNT 

; WRITE TAPE AT EOT FAILED 10 SE 

TRAP 
.WORD 
.WORD 
.WORD 

iLOOP IF SFLECTED 

TRAP 

;PICK UP XSTO 

;SET UP EXPtCTED 

;SET THE EOT BIT ON IN EXPECTED 

iWAS THE BIT ON 

;BR, IF EOT UAS FOl^ND 
; ERROR COUNT 
BIT (XSTO) NOT SET 



r ISA 

CJFRHRD 
60S 

r'.4LT:> 

PKfSSR 
C$CLP1 



EOT 



iLOOP IF SELECTED 

WRITE TAPE MARK, 
R4 - POINTER TO 
ISSUE COMMAND 
WAIT FOR SSR TO 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 
ACK, CVC-1 
PACKET 

SET 



C$ERHRD 
606 
T34LTN 
EXPPEC 

C$CLP1 
COMMAND 



GET 
SET 
ARE 
BR. 

EOT 



TSSR CONTENTS 

UP EXPECTED 

THEY EQUAL 

IF STATUS IS GOOD COK) 

; ERROR COUNT 
NOT FOUND (USE SHORTER 

TRAP 
. WORD 
.WORD 
.WORD 
(LOOP IF SELECTED 

TRAP 
PICK UP XSTO 
SET UP EXPECTED 
SET THE EOT BIT ON IN EXPECT! 
WAS THE BIT ON 
BR. IF EOT UAS FOUND 

; ERROR COUNT 
(EOT BIT (XSTO) NOT SET 

TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



TAPE?) 

C$ERHRD 

607 

T34WTM 

PKTSSR 



CJCLPl 



LOUP IF SELECTED 



C$LRHRD 
608 

T54ero 

EXPRFC 
C$Cl PI 



SKIP TAPE HARK REVERSE ACK.CVC^l COMMAND 



Te-ST 1 ■ HARDWARE TF.ST 1-8 TEST MACRO Nl^OO 
TEST 6: OPERATIONS AT EOT 



3744 
574S 
5746 
3747 
3740 
3749 
3 7 SO 

3:si 

3.'.S? 
5756 



3757 

3758 
3759 
3760 
3761 
3/62 
376? 
3767 



3;68 

3769 
3/70 
3771 
3/7? 
3773 
37/4 
3778 



3779 

3780 
3/81 
3/8^ 
3783 
3784 
3785 
3/86 
3/8/ 
3 788 
3789 
3793 



056740 
056746 
056752 
056756 
056762 
056766 
056 7 72 
056774 
056776 
057002 
057002 
057004 
057006 
057010 
057012 
057012 
057014 
057020 
057022 
057026 
057030 
057032 
057036 
057036 
057040 
057042 
057044 
0570*1 ;v 
057046 
057050 
057054 
057056 
057062 
057064 
057066 
057072 
05 70 72 
057074 
057076 
057100 
057102 
057102 
057104 
057112 
057120 
057124 
057130 
05/134 
057140 
05/144 
057146 
057150 
057154 
057154 
057156 
057160 
057162 



012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 

001141 
061730 
012126 

104406 
013701 
010102 
052702 
020102 
001406 
005237 

104456 
001142 
061501 
015554 

104406 
013701 
010102 
052702 
020102 
001406 
005237 

104456 
001143 
062013 
015554 

104406 
012737 
012757 
012704 
010465 
004737 
016501 
012702 
020102 
001006 
005237 

104456 
001144 
060/44 
012126 



000001 
060710 
000000 
016330 
000002 
000200 



002214 



060712 



060620 
000001 

002214 



060620 
liJOOCO 

002214 



140410 
000001 
060/10 
000000 
016330 
000002 
100^04 



002214 



130$ 



140$ 



150$ 



060710 
060712 



CKLOOP 

MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BNP 
INC 
ERRHRO 



MAR -84 


I ! ^ 

08:44 PAGE 25-73 






MOV 


vn.T34WB 




SIT NUMBER ( 1 ) Of TM'j TO SKIP 




MOV 


V?T34PI<3,R4 




R4 ' POINTER TO PACKET 




MOV 


R4.T50BCR3) 




ISSUE COMMAND 




J5R 


PC.WAITE 




WAIT FOR SSR TO SET 




MOV 


TSSRC'^S),R1 




GET TSSR CONTENTS 




MOV 


V^SSR.R2 




Se r UP EXPECTED 




CMP 


R1,R2 




ARE THEY EQUAL 




BEQ 


130$ 




BR, IF STATUS IS GOOD (OK) 




INC 


FATFLCi 




;FRROR COUNT 




ERRHRD 


ERRN0.T34STM 


PKTS3R 


SKIP TAPE MARK REV. DIDN' i SET 

TRAP 
. WORD 
.WORD 
.WORD 


ISA 

C5ERHR!; 

60V 

T?4STM 

PKTSSR 


CKLOOP 






LOOP IF SELECTED 

TRAP 


C$CLP1 


MOV 


T34BFR*6.R1 




PICK UP XSTO 




MOV 


R1.R2 




SET UP EXPECTED 




BIS 


<>BIT0,R2 




SET THE EOT BIT ON IN EXPECTED 




CMP 


R1.R2 




WAS THE BIT ON 




BEQ 


140$ 




BR, IF EOT WAS FOLiND 




INC 


FATrLG 




1 ERROR COUNT 




ERRHRD 


ERRN0,T34ETN. 


EXPREC 


EOT BIT (XSTO) NOT SET 

.WORD 
.WORD 
.WORD 


C$ERHRD 
610 
T34ETN 
EXPREC 


CKLOOP 






LOOP IF SELECTED 

TRAP 


C$CLP1 


MOV 


T34RFR*6,R1 




PICK UP XSTO 




MOV 


R1.R2 




SET UP EXPECTED 




BIS 


*0IT15.R2 




SET THE TMK BIT ON IN EXPECTED 




CMP 


R1,R2 




WAS THE BIT ON 




BEQ 


150$ 




BR, IF TMK WAS FOUND 




INC 


(-Aff-Lt; 




I ERROR COUNT 




ERRHRD 


ERRN0,T34TMK 


EXPREC 


EOT BIT CXSTO) NOT SET 





SEQ 0167 



LOOP IF SELECTED 



*140410.T34PK3 

<>1.T54WB 

OT34PK3.R4 

Fi4.TSDB(R5) 

I ^-.WAITF 

T .'jRCR5).Rl 

0SC!SSR!BIT2,R2 

R1.R2 

160$ 

FATFl G 

ERRN0.T34P05. PKTSSR 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 
ACK. CVC 



I SPACE RECORDS REVERSl 
SPACE ONE RECORD REVPRSE 
R4 - POINTER TO PACKET 
ISSUE COMMAND 
WAIT FOR SSR TO SET 
iGET TSSR CONTENTS 
;SET UP EXPECTED 
;ARE THEY EQUAL 
I BR, IT MIGHT BE END OV TAPE. 

i ERROR COUNT 
itUT NOT FOUND (USE SHORTER TAPE 

TRAP 
.WORD 
. WORD 
.WORD 



C$FRHRD 

611 

T34TMK 

EXPREC 

C$Cl PI 
1 CHD 



C$ERHRD 

6K^ 

} 54PUS 

PKTSSR 



Ti-ST 1 HARDWAHt- Tf-Sl I 8 TtST MACRO M1?00 .'0 NAR -64 08:4/1 PAGK £>5 - 74 
TtST 6: OPFRAriONS AT t-UT 



3794 

3795 
3796 
3797 
379a 
3 /99 
3(tOO 

3ao4 



3805 

3806 
3807 
3808 
3809 
3810 
3811 
3815 



3816 

3817 
3818 
3819 
38:?0 
3821 
382r:» 
38;?3 
3824 
38.-ib 
3826 
3830 



3B31 

383«? 
3853 
33 34 
3835 
3836 
3837 

3838 
3839 

3840 
3841 
3842 



057164 
057164 
057166 
057172 
057174 
057200 
v'>57202 
C57204 
057210 
057210 
05/212 
057214 
057216 
057220 
057220 
057222 
057226 
057230 
057234 
057236 
057240 
05 /244 
05 ('244 
OS/246 
057250 
057252 
057254 
0572:v1 
057256 
057264 
057272 
057276 
057302 
057306 
057312 
057316 
057320 
057322 
057526 
0575;'6 
057330 
05/532 
057354 
05/356 
057536 
05/540 
057344 
057346 
057352 
057354 
057356 
057556 
057560 
05/366 
057374 
057400 
057404 



104406 
015701 
010102 
052/02 
020102 
001406 
005237 

104456 
001145 
061501 
015554 

104406 
013701 
010102 
042702 
020102 
001406 
005237 

104456 
001146 
062013 

015554 

104406 
012737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

10J456 
00114/ 
060/44 
012126 

104406 
013701 
010102 
042702 
020102 
001400 

104406 
012/3/ 
012/37 
012/04 
010465 
004737 



060620 
000001 

002214 



060620 
100000 

002214 



140410 
000001 
060710 
000000 
016330 
000002 
000200 



002214 



060620 
OCOOOl 



140010 
000002 
060/10 
000000 
016330 



160$ 



165$ 



165$ 



060710 
060712 



167$ 



170$ 



060/10 
0607X2 



CKl OOP 

nnv 

MOV 
lUS 
CMP 
BhU 
INC 
ERRHRD 



CKLOOP 

MOV 
MOV 
BIC 
CMP 
Bfc-.Q 
INC 
tRRHRD 



CKLOOP 

MOV 
MOV 
MOV 
MOV 
vJiiR 
MOV 
MOV 
CHP 
BEQ 
INC 
F.RRHRD 



T34BFRt6.Rl 

R1.R2 

V>BIT0,R2 

R1.R2 

165$ 

KATFl.G 

F.RRN0.T34f.TN.FXPRE.C 



T34BKR*6.R1 

Rl.Rc' 

^BIT15.R2 

R1.R2 

165$ 

FATPLG 

tRRN0,T34TMI<.EXPRliC 



*140410,T34PK3 

<^l,T54Wa 

<^T34PI<3,R4 

R4.T5D8CR5) 

PC.WAin 

TSSR(R5).R1 

*SSR,R2 

R1,R2 

167$ 

M\H LG 

ERRN0,T34Pu5.PKTSSR 



CKLOOP 




MOV 


T54BFR>6.R1 


MOV 


R1.R2 


BIC 


<^IT0,R2 


CMP 


ni.R2 


BLQ 


170; 


CKLOOP 




MOV 


*140010. r54PK3 


MOV 


#2.T34WB 


MOV 


«r54PK5,R4 


MOV 


R4.TS0B(R5) 


JGH 


PC.UAITF 



SEQ 0168 



LUOP IF SKLECTtD 



TRAP 



C$CLP1 



SFT UP EXPECIFD 

^U T THE EOT Hi". ON IN EXPECTED 
[WAS THE BIT ON 
;RR, IF FOT WAS FOUND 

: ERROR CUl^f 
[EOT BIT (XSTO) NOT SET 





TRAP 


CJEHHRD 




.WORD 


61'. 




.WORD 


T34f lU 




.WORD 


FXPREC 


;LUOP IF SELECTED 








TRAP 


C$CLP1 


:P1CK UP XSTO 






I SET UP EXPECTED 






;CLEAR THE TMK BIT ON IN EXPE. 


TED 


;UA5 THE BIT ON 






;BR, IF TMK WA*S FOUND 






lERROR COUNT 






(EOT BIT (XSTO) NOT SET 








TRAP 


C$ERHRD 




. WORD 


614 




.WORD 


T 54 TMK 




.WORD 


EXPREL 


(LOOP IF SELECTED 








TRAP 


C$CLP1 


I SPACE RECORDS REVERSE, 


ACK. CVC=1 CMD 



[SPACE ONE RECORD REVIRSE 

lR4 - POINTER TO PACKET 

1 ISSUE COMMAND 

;WAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

J SET UP EXPECTED 

;ARE THEY EQUAL 

I BR, IT MIGHT BE END Oh TAPE 

J ERROR COUNT 
I EOT NUT FOUND (UbE SHORTER TAPE?1 



I LOOP IF SELECTED 



TRAP 


C$ERHRD 


.WORD 


615 


.WORD 


154P0S 


.WORD 


PKTSSR 



;PICK UP 
t SET UP 



TRAP 



XSTO 
EXPECTED 



C$CLP1 



J CLEAR THE EOT BIT ON IN EXPECTED 

iWAS THE BIT OFF 

iBR, IF EOT WAS KOOND 

tLOOP IF SELECTED 



J SPACE RECORDS FORWARD, 
i SPACE TWO RECORDS 
iR4 - POINTER TO PACKET 
(ISSUE COMMAND 
IWAIT FOR SSR TO SET 



TRAP 
ACK . 



C5CLP1 
CVC = l 



N1 ,'^ 



THSr 1 HARDWARE-. rF.SV 1-8 TEST MACRO Ml^OO 20 MAR~tt4 0^:4^ PAGE i>5 7b 
TEST 6; OPERATIONS AT EO! 



SEQ 0169 



384? 


057410 


016501 


000002 


3844 


057414 


012 702 


000200 


384b 


057420 


020102 




3846 


057422 


001406 




384 7 


057424 


005237 


002214 


38bl 


057430 








057430 


104456 






057452 


001150 






057434 


060744 






057436 


012126 




385? 


057440 








057440 


104406 




38^3 


057442 


013701 


060620 


38S4 


0S7446 


010102 




38'jb 


057450 


052702 


000001 


3856 


357454 


020102 




3857 


057456 


001406 




3858 


057460 


005237 


002214 


386a 


057464 








057464 


104456 






057466 


001151 






057470 


061560 






05747? 


015554 




3863 


057474 








057474 


104406 




3864 


057476 


01273/ 


140401 060710 


3865 


057504 


013737 


003116 060712 


3866 


057512 


012704 


060710 


3867 


057516 


010465 


000000 


3866 


057522 


004 737 


016330 


5869 


057526 


016501 


000002 


3870 


057532 


012702 


000200 


3871 


057536 


020102 




30/^ 


057540 


001406 




38 73 


057542 


005237 


002214 


3877 


057546 








057546 


104456 






05755C 


001152 






057552 


061116 






057554 


012126 




3878 


057556 








057556 


104406 




3879 


057560 


012737 


140'^: 060710 


3880 


057566 


013737 


003116 060712 


3881 


057574 


012704 


060710 


3882 


057600 


010465 


000000 


3883 


057604 


004737 


016330 


3884 


057610 


016501 


000002 


3885 


057614 


012702 


000200 


3886 


057620 


020102 




3887 


057622 


001406 




3888 


057624 


005237 


002214 


3892 


057630 








057630 


104456 






057632 


001153 






057634 


061116 






057636 


012126 





190$: 



200$ 



MOV 


TS5RCR5),R1 




it;ET TSSR CONTENTS 




MOV 


>'/^iSH.R2 




I'A. I UP EXPECTED 




CMP 


R1,R2 




(ARE THEY EQUAL 




BKQ 


190$ 




(BR, IT MIGHT BE END OF TA^E 




INC 


f'ATFLG 




; ERROR COUNT 




ERRHRD 


fcRRNU,T34P0S 


PKTSSR 


jbOT NOT FOUND (USE SHORTER TAPE?) 








TRAP 


r$FHHRD 








. WORD 


616 








. WORD 


r34P0S 








.WORD 


PKTSSR 


CKLOOP 






;LOOP IF SELECTED 

TRAP 


C$CI PI 


MOV 


T34BrR»6.Rl 




jPICK UP XSTO 




MOV 


R1,R2 




;SET VP EXPECTED 




HIS 


^BIT0.R2 




;5ET THE EOT BIT ON IN EXPECTED 




CMP 


R1,R2 




;WAS THE BIT ON 




BEQ 


200$ 




iHR, IF EOT WAS FOUND 




INC 


EATFLG 




i ERROR COUNT 




FRRHRD 


ERRN0.T34ETS 


EXPREC 


;EOT BIT (XSTO) NOT SET 

TRAP 
.WORD 
.WORD 
.WORD 


CSERHRD 
617 
T34ETS 
EXPREC 



205$ 



CKl.OOP 

MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



CKEOOP 

MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BcQ 
INC 
ERRHRD 



*140401.T34PK5 

FREE.r34RB 

*T34PK3,R4 

R4,TSDB(R5) 

PC.WAITF 

TS5R(R5).R1 

<^SSP,R2 

R1.R2 

205$ 

F'ATFl.G 

ERRN0,T34RRE.PKTSSR 



<M40401.T34Pt<3 

FREE,T34RB 

0T34PK3,R4 

R4.TSDB(R5) 

PC.WAITF 

T5SR(R5).R1 

i»SSR.R2 

R1.R2 

210$ 

FATFLG 

ERRN0.T34RRE,PI<ToSR 



il.OOP IF SELECTED 

TRAP C$CLP1 
iREAD REVERSE, ACK , CVC'-l 
;SET UP WRITE BUFFER ADDRESS 
jR4 - PCINTER TO PACKET 
; ISSUE COmAND 
;WAIT FOR SSR TO SET 
(GET TSSR CONTENTS 
I SET UP EXPECTED 
;ARE THEY ECiUAL 
jBR, ONLY SSR IS SET 
; ERROR COUNT 
;EOT NOT nUND (USE SHORTER TAPE?) 

TRAP C$ERHRD 
.WORD 618 
,'JORD T34RRE 
.WORD PKTSSR 
iLOOP IF SELECTED 

TRAP C$CUPl 
[READ REVERSE. ACK . CVC-1 
SET UP WRITE BUFFER ADDRESS 
R4 ■ POINTER TO PACKET 
ISSUE COMMAND 
WAIT FOR SSR TO SET 
GET TSSR CONTENTS 
SET UP EXPECTED 
ARE THEr EQUAL 
BR. IT MIGHT BE END OF TAPE 

J ERROR COUNT 
EOT NOT FOUND (USE SHORTER TAPE?) 

TRAP C$ERHRD 
.WORD 619 
.WORD T54RRe 
.WORD PKTSSR 



i . ; /t 



Tt>I 1 HARDWAW: IhS' 1 H Tt-ST MACfiO MhH)0 /(^ Man H4 OMj^O PAl.t ,'S /f. 
TtST f.: iV^FRATlONS AT I OT 



,^8^.^ 


0S764O 








057640 


1O4406 




sa'M 


05764 c? 


Ol^'S/ 


140001 060UO 


.^84«i 


05/650 


015757 


005116 060 /I r' 


5896 


057656 


012737 


006654 060716 


589 ; 


057664 


012704 


060710 


?*^98 


05 76 70 


010465 


000000 


^f<99 


0576 74 


004757 


016550 


^900 


05/700 


016501 


000002 


^901 


057 704 


012702 


000200 


590^ 


05771C 


020102 




5905 


05/7U' 


001406 




.5904 


05// 14 


00525/ 


002214 


5908 


0S7 7?0 








057 720 


104456 






057 722 


001154 






057 724 


061116 






05/726 


012126 




5909 


057750 








057750 


104406 




5910 


057752 


012757 


140001 060710 


5911 


05 7 740 


015757 


005116 060/12 


591^ 


05 7 746 


01275/ 


006654 060716 


5915 


05 /7M 


012704 


060710 


5914 


057760 


010465 


OOOOOO 


59 1 ^ 


057 764 


004757 


016550 


3916 


057770 


016501 


000002 


5917 


0577 74 


012702 


000200 


5918 


060000 


020102 




5919 


060002 


001406 




S9ao 


060004 


005257 


002214 


5924 


06O010 








060010 


104456 






060012 


001155 






060014 


061116 






060016 


012126 




59,^5 


060020 








060020 


1O4406 




59?6 


060022 


015701 


060620 


59^7 


060026 


010102 




5928 


060050 


052702 


oooooi 


39^ 


060054 


020102 




5950 


060056 


00.1406 




5951 


06OO40 


005257 


002214 


5955 


060044 








06OO44 


104456 






060O46 


001156 






060050 


061652 






060052 


015554 




3956 


0600S4 








060054 


1O4406 




5957 


060056 


012757 


140410 060/10 


5958 


060064 


012757 


OOOOO'j O60712 


5^59 


06OO72 


012704 


060 710 


5940 


0600 76 


010465 


OOOOOO 


3941 


0S0102 


004757 


016550 


3942 


060106 


016501 


000002 



CKI HOP 




MCW 


0140001. [54PK5 


MOV 


f Htt . T54RR 


MUV 


#5500. .T54',/ 


MOV 


*T54PK5,H4 


MOV 


R4.T,0B(IJ'. ' 


JSW 


PC.gAIT^ 


MOV 


TbSH(M'.).Rl 


M(;\.' 


«SSH,H2 


CMt' 


HI.W2 


QtU 


2^01 


INC 


FATKC. 


tR«HRD 


ERRNO,T54HHt,Pl 



230$! CKLOOP 

MOV 
MOV 
MOV 
MOV 
MOV 
JGR 
MOV 
MOV 
CMP 
BtQ 

I^c 

tRRHRD 



2551 ! CKLOOP 

MOV 
MOV 
BIS 
CMP 

BfU 
IHT. 
ERRHRO 



240*1 CKLOOP 



M'J 



R 



♦140001, T54PK5 
FRFE . r54RB 

•5500. ,T54S7 

#T54PK5,R4 

R4.IS0B(R5) 

PC.WAITF 

TSSR(H5),R1 
♦SSR.R2 

P1.R2 

255t 

FATFIC; 

tRRN0,n4RHt. .PKT'j';n 



T54BFR*f.,Rl 
RI.R2 

♦eiiO,R2 

Rl,R2 

2*01 

f ATf I a 

tRRN0.T54KT/.tXPHtC 



MOV 


♦140410, r54PK5 


MOV 


♦5.T54RB 


MOV 


♦ r54P»''5,R4 


MOV 


R4, rSOO(f '.) 


J5R 


PC.WAITF 


MOV 


TVSRCR5).ni 



'J '4 0170 



1 1 onp :t '-,! I KTM) 

TPMP 
|H^ A(J DATA, ACK , CVC-I 
iSFT IJP WRITE BUTftR AOORf ) 
j'.fr iJP BUFFER Sl/t MK e^T(-', 
|R4 - POINTLR TO PACKET 
I i'/^Ut: COMMAS 
I WAIT FOR f^SR TO SET 
iGtT TSSR CONTENTS 
:S(-T UP FKPECTf-O 
I ARE THE I FOUAl 
iRR. IT M[{.MT BF eN() Of TAPF 
lERROR COiJNT 
NOT FOUND (U'iE 



»Ci PI 



lEOT 



ILOOP IE sELECTfO 



''.HORTFR TAPE/ 



TRAP 
.WOR) 
.WORU 
, WORD 

TRAP 



I 



iREAO DATA, ACK. CVC 
iSET UP WPITE BUFFER 
jSFT UP BUFFER SI/E 
iM4 • POINTER TO PACKET 
I issue COMMANP 
jWAIT FOR SSR TO 'jET 
IGET TG5R CONTENTS 
(SET UP EXPECTED 
(ARE Th^t EOUAl 

n MI01T f 
(ERROR 

NOT FOUND 



CIFRHWO 
6.*0 
T54HRF 
PKTSSR 

CiCl.Pl 



ADORE ^b 
(4K BrTES 



»BR. 

iFOT 



COUNT 



0^ ^APt 



*jK)RTtR TAPE?) 



|l OOP IF SflFCTEO 



TRAP 
.WORD 
.WORO 
.WORD 

TRAP 



iPICK UP XSTO 

iSET UP EXPECIEO 

iSET The EOT BIT ON IN EXPECTED 

iWAS THE BIT ON 

iBR. IF EOT WAS FOUND 
iFRROP COUNT 

lEOT BIT (XSTO) NOT SET 

TRAP 
.WORD 
.WORD 
.WORD 



CitRMRD 
621 
T 54RRF 
PK TSSR 

OCL.Pl 



llOOP IF SELECTED 



LlERF*^0 
622 
T54F T/ 
l-xPRtC 



TRAP 

ACK, 



I SPACE RECORDS REVERSE 

iNLWBER Of RECORDS TO SPAC£ 

rR4 - POINTER TO PACKET 

I ISSUt COMMAND 

iWAU FOR SSR TO StJ 

;UtT TtiSR CONTtHT^ 



CICIFI 

even CMo, 



/ 



TLbT 6: l>f»rRATIONS AT 10! 



?94? 


0601 IJ 


Ol^^C 


000. H)0 


5944 


060116 


Oc'OlO.* 




5943 


0601»?0 


001406 




y>9Ab 


0601^?^* 


005^57 


002214 


-^950 


0601^6 








OtO\Jt 


104456 






Of,01 50 


00U57 






060132 


060744 






060154 


012126 




^9S1 


060136 








060136 


1O4406 




595*? 


060140 


015701 


060620 


3955 


060144 


010102 




59S4 


060146 


042702 


00000 1 


5955 


060152 


020102 




5956 


060154 


001406 




3957 


060156 


005237 


002214 


5%1 


060162 








060162 


104456 






060164 


001160 






060166 


061207 






060170 


015554 




5962 


0601 T.? 








060172 


IO4406 




.5965 


060174 


012757 


140010 060/10 


5964 


060202 


012757 


000O05 060712 


3965 


060210 


012704 


060 710 


3966 


060214 


010465 


oooooo 


5967 


060220 


0O4757 


016550 


396fl 


060224 


016501 


000002 


596^ 


060250 


012702 


000200 


,'970 


060254 


020102 




3971 


060P56 


001406 




597? 


060240 


005257 


002214 


3976 


060244 








060244 


104456 






060246 


00U61 






060250 


062146 






060252 


01?126 




5977 


060254 








0602M 


104406 




3978 


060256 


0\5.01 


060620 


5979 


060262 


010102 




5980 


060264 


052702 


000001 


3981 


0602 70 


020102 




5982 


0602 72 


001400 




3985 


0602 74 








0602 74 


104406 




3984 


0602 7b 


012757 


141410 060710 


3985 


060504 


012757 


O0OO05 060712 


5986 


060512 


012 704 


060 710 


3987 


060516 


010465 


OOOOOO 


3988 


060522 


012737 


176 750 060724 


5989 


060550 


004757 


016550 


3990 


060554 


016501 


0O0O0f> 


5991 


060540 


052701 


000200 


3992 


060544 


001017 





250$ I 



280 f: 



281>»1 



HOv 


/?s';f*,R2 




CMP 


HI .H2 




HhU 


2*^01 




INC 


f MT» I t, 




t^MHHHO 


FHRN0,T54FJU'j,PKT'j 


sw 



CKl OOP 



MUV 


T54Bt«»6,Hl 


MOV 


RI.R2 


BIC 


«eiT0.R2 


CMP 


R1,R2 


BFQ 


2601 


INC 


f ATf LC. 


t RRHRD 


tHRN0.T54ETC,tXPRfC 



ci60$; CKl OOP 

MOV 
MOV 
MOV 
MOV 
JSft 
MOV 
MOV 
CMP 
BEQ 
INC 
F RRHRD 



270$! CKLOOP 



#140010. T54PK5 

05.T54RB 

#T54PK5,R4 

R4.rSDe(R5) 

PC.WAITr 

TS5r^lR5),Rl 

♦SSR,R2 

R1.R2 

2701 

FATf LG 

ERRN0.T34eT,PKT5SR 



MOV 


T54Bf R»6.R1 


MOV 


R1.R2 


BIS 


^IT0,R2 


CMP 


Rl.fl2 


BEQ 


2801 


CKLCX)P 




MOV 


♦141410, T34PK5 


MOV 


#5. T54RB 


MOV 


#T54PK5.R4 


MOV 


R4,T5DB(R5) 


MOV 


#65000. .T54DCt 


JSR 


PC.WAITF 


MOV 


TSSR(R5),Ri 


BIT 


#SSR,R1 


QNE 


206* 



',\ 'j 01 /I 



r-i T {4' t xpj CH I) 

|ARf IK I KJiJAl 

iHR. IT HK.HT y( tN(J 0* TAPf 
jfRROR COUNT 

iPOblTION LOMMAND UlUN' T W0R^' 

T^^AP 
.WORD 
.W')RD 
. JfWD 

TRAP 



1 1 OOP U SfltCTlO 



C*f-RHt^[j 

T^4P'J'. 
PKT'-.'.P 



c«:i PI 

ON IN EXPfXTFO 



iPICK UP X'.TO 

ibH UP t.XPtCTFCJ 

iCLKAR TMf FOT BIT 

(WAS TMt-, BIT ON 

lUR, If tUT WAS » OUNO 
(f-.RROP COUNT 

it-OT BIT (X'iTO) NOT CLEAR 

TRAP 
.WORD 
.WORD 
.WORD 

il nop IF SELECTED 

TRAP 

jJPACt RECORDS fORWARO, ACK , 

I NUMBER Of RECORDS TO SPACE 

|R4 • POINTER TO PACKET 

I ISSUE COMMAND 

(WAIT FOR SSR TO SET 

iGET TSSR CONTENTS 
UP EXPECTED 
THeY EQUAL 

IT MIGHT BE END OF TAPl? 
(ERROR COUNT 

I TSSR NOT CORRECT 

TRAP 
.WORD 
.WORD 
.WOH[) 

TRAP 



C/C 



CiFRHRO 
624 
T54t 'C 
FXPREC 

CICI PI 
•l CMD. 



iSF^ 
jARt 
iBR. 



(LOOP IK SELECTED 



PICK UP XSTO 

SET UP EXPECTED 

SET THE EOT BIT ON IN EXPECTED 

WAS THE BIT ON 

BR. IF EOT WAS FOUND 

LOOP IF SELECTED 

TRAP 
SKIP FILE MARKS REVERSE , AQK, CVC 
NUMBER OF FILE MARKS 
R4 - POINTER TO PACKET 
ISSUE COMMAND 
SFT UP DEI ATT COUNTER 
WAIT FOR SSR TO SET 
GET TSSR CONTENT'^ 
CHECK FOR SSH SET 
m, WHEN SSH XS StT 



CitRHRD 
625 
T54ET 
PKTSSR 

CJCLPl 



C»Cl-Pl 

•1 CQMMANO 



TtST b: OPERATIONS AT tQT 



5995 



5995 
599t> 
399/' 
5998 
5999 
4000 
4004 



4005 
4006 
4007 
400fl 
4009 
4010 
4011 
4015 



4016 

4017 
4018 
4019 
4020 
4021 
4022 
4026 



4027 

4028 
4029 



4050 
4051 
4052 
4055 
4054 



060546 
060546 
060 5 •"j2 
060554 
060560 
060562 
06U566 
060570 
060574 
060576 
060402 
060404 
060410 
060412 
060414 
060416 
060422 
060422 
060424 
060426 
060450 
0604 52 
060456 
060442 
060444 
060450 
060452 
060454 
06O460 
060460 
060462 
06<^64 
06^/466 
0604 70 
0604 70 
060472 
0604 76 
060500 
0605O4 
0605O6 
060510 
060514 
060514 
060516 
060520 
060522 
060524 
060524 
060526 
060526 
060526 
060526 
060550 
060556 
060540 
0^)0544 
060544 



01J72 7 000i>'.)0 

ooooco 

015^27 002116 

OOOOOO 

005 J67 177 //r* 

0015 75 

005567 1777S6 

001567 

005357 060724 

001552 

012702 000200 

020102 

00100? 

005505 

005257 002214 

104456 
001162 
062146 
012126 

052701 000004 
015701 060620 
010102 

042702 000001 
020102 
001406 
005257 002214 

104456 
001165 
061207 
015554 

104406 

015701 060620 
010102 

052702 000002 
020102 
001406 
005257 002214 

104456 
001164 
061264 
015554 

104406 



104405 

025/27 002?1«4 000017 

105402 

004757 01 7262 

004 737 016556 



2abJ 



290 J: 



300 J: 



520«: 
600 S: 



Of I Ai 



999* i 



ENOSUB 



CMP 
BLO 
JSR 



•^0 



I WAIT ABOUT .25 OFCUNUb 



Die 


T540Lf 


MM 


2R'>( 


hOV 


«S^.R.R2 


CMP 


RI.R2 


BNF. 


290$ 


DfcC 


R5 


INC 


F ATM (, 


KRRHRD 


F.RRNO.T54ET.PKTSSR 





SE'i 0172 


M(JV 


(^>^0,f PC ). 


.WORO 


u 


MOV 


I iOi • ,fPC J* 


.WORD 





Df C 


6'' PC; 


RNe 


. 4 


DEC 


w^'-^PC) 


BNt 


. -20 



iBl^lP COUNTr.H 

[BR, n Monr to count 

(SIT UP EXPECTED 

I ARE Thttr EQUAL. 

iBR. IT MIGHT BE ENO Of TAPE 

(DEC RECORD COUNTER 

(ERROR CO'^JT 
(EOT NOT FOUND (USE SHORTER TAPE 

TRAP 



BIT «)IT2.Rl 

MOV T54BrR^6.Hl 

MOV R1,R2 

BIC #eiT0,R2 

CMP R1.R2 

BEQ 5001 

INC EATFLG 

ERRHRD EftRN0.T54ETC,EXPREC 



TATU5 



I CHECK FOR TAPE 
(PICK UP XSTO 
i'3FT UP EXPECTED 
iCLEAR THE EOT BIT 
IWAS THE BIT ON 

IE EOT WAS roUNO 
I ERROR COUNT 

BXT (XSTO) NOT CLEAR 



.WORD 
.WORD 
.WORD 
Al ERT 



?) 

C$ERHRD 
626 
T54E ^ 
PKTSSR 



IN EXPECTED 



iBR. 



(EOT 







TRAP 


CIERHWD 






.WORD 


62 7 






.WORD 


T54ETC 






.WUFD 


EXPREC 


CKLOOP 




(LOOP IF SELECTED 








TRAP 


C$CLP1 


MOV 


T54BFR*6,Rl 


iPICK UP XSTO 




MOV 


R1.R2 


iSET IIP EXPECTED 




BIS 


oeiTl,R2 


(SET THE. BOT BIT ON IN EXPECTED 




CMP 


R1.R2 


(WAS THE BIT ON 




BEQ 


520$ 


(BR. IF BOT WAS FOU^JO 




INC 


EATFLG 


(ERROR COU^JT 




ERRHRD 


ERRNO.T34UUT.EXPRtC 


(EOT BIT CX5T0) NOT CLEAR 








TRAP 


c$ERHro 






.WORD 


620 






.WO«D 


T54B0T 






.WORD 


EXPREC 


CKLOOP 




(LOOP IF SELECTED 








TRAP 


CJCLPl 



JSR 



FATFLG.015. 

999$ 

PC.CKDROP 

PCTSTLOOP 



I >k > >>> >>>^ >> END SUBTEST >»»»>l>^>.^> 

L10062: 

TRAP CJtSUB 
( IS ERROR COUNT AT .'5 
(BR. IF I ESS THAN 2^. 
iTR> TO DROP THE UNIT 

iDO WE NEED TO ITERATE TEST 



TtSl 1 HAHOWARt reSI I H TtST MACRO HU^OO .'0 MAR-H4 OHiA^ MAGI-, t'b /'^ 
TtSr 6: OPt-RATlONS AT t.UT 



0S61,?c> 



►FO 01 /^, 



405b 


060550 


10500.^ 


4056 


06055? 


000157 


4037 


060556 






060556 


104452 




060560 


002662 


4058 






4059 






4040 






404,? 




060570 


4044 


060570 




4045 


060570 


100004 


4046 


060572 


060600 


404 7 


060574 


000000 


4048 


060576 


000010 


4049 


060600 




4050 


060600 


060612 


4051 


060602 


OOCOOO 


405c> 


060604 


000012 


4053 


060606 


000000 


4054 


060610 


000000 


4055 


060612 




4056 






4057 






4053 






4060 




060 700 


4062 


060700 




4065 


060700 


100OO6 


4064 


060702 


060726 


40€5 


060704 


000000 


4066 


060706 


000006 


4067 






4071 


060710 




4072 


060710 


10OO05 


4075 


060712 




4074 


060712 


OOOOOO 


4075 


060714 


000000 


40 76 


060716 


OOOOOO 


407 7 






4078 






40 79 


060720 


OOOOOO 


4060 


060722 


OOOOOO 


4081 


060724 


OOOOOO 


4082 






4085 






4064 


060726 




4065 


060726 


010 


4066 


060/2 7 


200 


408 7 


060750 


OOOOOO 


4066 


060732 


OOOOOO 


4069 






4090 






4091 






4092 






4093 






4094 


060734 


r 00005 


4095 


060 756 


100405 


4096 


060740 


102005 





HCC 


16', J 




JMt' 


T 54 LOUP 


165$! 


EXIT 


TST 


! LOCAL 


<;TDMAOf: 


KOR THIS 




.-*, *\0 


>£17/7 70 


T54PACKtT: 






.WURO 


100004 




.WORD 


1 540ATA 




.WORD 







.WORD 


8. 


T54DATA: 






.WORD 


T54BFR 




.WORD 







.WORD 


10. 




.WORD 





T54DSU 


.WORD 





T54BFR 


.BLKW 


25. 


IwRITE 


SUBtiYSTLM MEMORY 




.■<. '10 


^£177/70 


T54PK2 








.WORD 


100006 




.WORD 


T 348^2 




.WORD 







.WORD 


6. 


T34PK3 








.WORD 


100005 


T34RB: 






T54Ue: 


.WORD 







.WORD 





T34SZ: 


.WORD 

.EVEN 





T34RSZ 


.WORD 





T54CNT 


.WORD 





T34DLY 


.WORD 





T54Br2 






T34BS0 


.BYTE 


10 


T54BS1 


.BYTE 


200 


T54Ii2: 


.WORD 





T54S3: 


.WORD 






.EVEN 
J TAPE MOTION PACKET COHIANO VALUES 

T54WD: .WORD 100005 
T34W0R: .WORD 100405 
T34C0N: .WORD 102005 



)HR. IF Hi) [ OOP Rf UUIRED 
it XL curt. At.AlN 
;ALL DONE THI'j TtST 



.WORD L 10061 



jCOMMANO PACKtT TOR TEST 

(WRITE CHARACTERISTICS COMMANO. UlTH ACK 

lADDRESS OF CHARACIERISTICS Rl OCK 

(STARTING VALUE OF BLOCK SIZE 
iCHARACfERISIICS DATA BLOCK 
J ADDRESS Of MESSAGE BUFFER 

iLbNGTH OF MESSAGE BUFFtR 

iSfcLECT DRIVE 
iMESSAGt BUFFER 



(WRITE SUB SYS MEM COMMAND, AND ACK 
(ADDRESS OF SEl ECT BLOCK DATA 

J SIZE OF DATA PACKET 



(WRITE COMMANO, AND ACK 
(ADDRESS Of WRITE/READ BUI-TER 
(SIZE OF DUFFER (EXTENT) 



(LARGEST TAPE RECORD IN BYTES 
(TAPF RECORD COUNTER 
(DELAY COUI'JTER 



(BSELO AREA 
(BStLl AREA 
I SEl 2 AREA 
(DATA AREA 



(WRITE 
(WRITE 



DATA 
DATA 



t Nt X T ) 
RETRY 



;WRITE CONTINOU: 



\^\ 



TtST 1 HARDWARE Tt:ST 1 8 TEST MACRO MIPOO :.J0HAR-84 08:4^ PAtJt ^5 tiO 
TtST 6: OPERATIONS AT tOT 



SF/J 01/4 



40^; 

4098 
4099 
4100 
4101 
4102 
4103 
4104 
4105 
4106 
4107 
4108 
4109 
4110 
4111 
4lli^ 
4113 
4114 
4115 
4116 
4117 
4118 
4119 
4120 
41c?l 
4122 
4123 
4124 
4125 
4126 
412/ 
4128 
4129 
4150 
4131 
413? 
4133 
4134 
4135 
4136 
4137 
4138 
4139 
4140 
4141 
4142 
4143 
4144 
4145 
4146 
4147 
4146 
4149 
4150 
4151 
415? 
4155 



060742 177777 



060744 
06103? 
061116 
061207 
061264 
061330 
061417 
061501 
061560 
061652 
061730 
062013 
062113 
062146 
06223b 
062315 
062367 
062436 
062511 
062557 
062632 
062721 
063023 
063076 
065150 
063237 



063262 
063262 
063266 
063272 
063276 
063302 
065304 
063310 
065514 
065316 
063322 
063324 
063330 
063334 
063542 
065544 
063350 
063352 



124 
127 
122 
125 
122 
127 
127 
127 
123 
122 
124 
120 
12/ 
105 
127 
124 
122 
122 
124 
104 
124 
124 
103 
124 
127 
117 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
0127U 
012702 
012762 
005742 
020227 
001371 
000207 



1?3 
122 
105 
156 
105 
122 
122 
12? 
120 
105 
123 
117 
122 
117 
122 
123 
145 
101 
123 
162 
123 
123 
126 
123 
122 
160 



0605/0 
100004 
060600 

000012 
060612 

000024 

OOOOOO 
000030 

177/77 

OOOOOO 



123 
111 
101 
141 
127 
111 
111 
111 
101 
101 
123 
123 
13.1 
124 
111 
125 
167 
115 
125 
151 
123 
125 
105 
102 
111 
145 



060612 



.WORD 



\? nji 



itNO or DATA 



i LOCAL TEXT MFSSAGt.S FOR TtST 



T34P0S 

134ET0 

T34RRE 

T34ETC 

T34B0T 

T34WTM 

T34ET2 

T34ETN 

T54ETS 

T54ETZ 

T34STM 

T54TMK 

T34SSR 

T34ET: 

T34E0T; 

T34Th: 

T34RgN 

T34RNC 

T54AM3 

T340fL 

T54W0D 

T54yDC 

T5AVCK 

T34BA: 

T34U3S: 

TST34ID: 



ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
MSCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 

EVEN 



(X5T0)' 



TMK (XSTO)' 



TSSR Incorrect After Position (SPACf RECORD')) Lonmand' 
WRITE TAPE MARK At EOT Pailed To Set EOT Bit CXSTO)' 
READ Command At EOT Didn''t Give Normal Termination ('TS'jRj' 
Unable To Clear EOT Indication. (XSTO) Bit 0' 
REWIND Tailed To Sat BOT CXSTO) Bit' 

WHITE TAPE MARK At EOT Failed To Set Tape Status Alert' 
WRITE DATA At EOT Failed To Set Tape Status Alert' 
WRITE DATA At EOT Failed To Set EOT Bit (XSTOV 
SPACE RECORDS FORWARD At EOT Failed To Set EOT Bit 
READ DATA At EOT Failed To Set EOT Bit (XSTOV 
TSSR Incorrect After SKIP TAPE MARK REVERSE At tOT' 
POSITION Cowwnand At EOT Onto Tape Mark Failed To Set 
WRITE Command Not Accepted' 

EOT Not Found In 65000 3.5K Writes. (Use Shorter Tape)' 
WRITE DATA OVER EOT GAVE NO TAPE STATUS ALERT' 
TSSR Not Correct After WRITE Command Reject' 
Rewind (POSITION) Command Not Accepted' 
RAM Error. Correct Data Pattern Not In Ram' 
TSSR Inlt. f-ailcd After WRITE Command' 
Drive 7 Select failed To Set "OFL" In TSSR 
TSSR Uot Correct After WHITE DATA Co«nand. SWB Bi 

WRITE DATA Command, Check 
VCK In Messaoe Buffer' 
WRITE DATA Command' 
Command Not Accepted (RAM Reod)' 
EOT' 



TSSR Not Correct After 
CVC Set. Didn' ' t Reset 
TSBA Not Correct After 
WRITE SUBSYSTEM MEMORY 
ASCIZ 'Operations At 



t Set' 
For Tape 



Offline 



jROUTINE TO RESTORE COMMAND PACKET 
;WRITE SUBSYSTEM MEMORY COMMAND 



TO START-UP (DEFAULT) VALUES 



T54REST: 




SAVREG 




MOV 


#T54PACKET.R1 


MOV 


*100004,(R1 )* 


MOV 


«T540ATA.CRl)* 


CLR 


(RD* 


MOV 


9X0. ,tRl)» 


MOV 


«T54BFR.CR1)» 


CLR 


(Rl)» 


MOV 


*20..(R1)* 


CIR 


(Rl)» 


MOV 


*0.(R1) 


MOV 


024. .R2 


64 «: MOV 


«177777.T34BFR(H2) 


TST 


-(R2) 


CUP 


R2.00 


BNE 


64$ 


RTS 


PC 



tSAVE THE REGISTERS 

i START OF TMF. PACKET 

iWRITE SUBSYSTEM MEM. WITH ACK 

I ADDRESS Of" CHARAISTICS DATA BLOCK 

i EXTENDED ADDRESS 

;S1ZE OF DATA BLOCK IN BYTES 

(ADDRESS OF MESSAGE Bl^FER 

iLENGTH OF MESSAGE BUFFER 

i SELECT DRIVE ZERO 

iNUMBER OF LOCATIONS ro BE CLEARED 

lALL ONES TO MESSAGE BUFFER 

;BUMP DOWN TO NEXT LOCATION 

jR2 AT ZERO YET 

(KEEP GOING UNTIL DONE 

(RETURN 



■' \A 



Tt-ST 1 HAROWARr TKST 1-8 TEST MACRO H1200 T'O MAR-a4 08:44 PAGf 25 81 
Ttsr 6: OPERATIONS AT tUT 



^f.C4 01 /r. 



4154 








4155 


063354 






4156 


063354 






4157 


063360 


012701 


060700 


4158 


063364 


012721 


100006 


4159 


063370 


012721 


060726 


4160 


063374 


005021 




4161 


063376 


012721 


000006 


4162 


063402 


012701 


060726 


4163 


065406 


005021 




4164 


063410 


005021 




4165 


063412 


005011 




4166 


063414 


000207 




4167 


063416 






4168 


063416 






4169 


063422 


012701 


060710 


4170 


063426 


012721 


100005 


4171 


065432 


005021 




4172 


063434 


005021 




4173 


063436 


005011 




4174 


063440 


000207 




4175 


063442 
063442 








063442 


104401 




4176 








417; 








4178 








41/9 








4180 








4181 








4182 








4185 








4184 








4185 








4186 








4187 








4188 








4189 








4190 








4191 








4192 








4193 








4194 








4195 


063444 
063444 






4196 


063444 


012737 


006354 


4201 


065452 


012700 


073163 


4202 


063456 


004737 


016570 


4203 


065462 


012737 


000005 


4204 


063470 


005037 


067566 


4205 








4206 








4207 








4208 








4209 








4210 








4211 









T34RT2: 



T34RT3: 



SAVREG 




MOV 


*T34PI<2,Rl 


MOV 


*100006,(H1)» 


MOV 


dT34BF2.CRl)^ 


CLR 


(Rn» 


MOV 


V)6. .(Rl). 


MOV 


0T54Br2.Rl 


CLR 


CR1)» 


CLR 


(.RD* 


CLR 


(Rl) 


PTS 


PC 


SAVREG 




MOV 


^T34PK3.R1 


hOV 


0100005, (Rl)f 


CLR 


(Rl)t 


CLR 


(Rl)» 


CLR 


(Rl) 


RTS 


PC 


EN0T5T 





r 



r)TART 



THE RE-CJ15^ER'j 
OF THE PACKET 
iWRITE '.UeSY5TEM MEM. WXTh ACW 
) ADDRESS OF DATA HLOCK 
;EXTENOED ADDRESS 
iSI7E OF DATA 81 OCK IN BYTES 
iPOlNT TO DATA SEE AREA 



iRETURN 

;SAVE THE REGISTERS 
;START OF THE PACKET 
iWRITE TAPE. WITH ACK 
i ADDRESS OF DATA BLOCK 
jEXTENDEO ADDRESS 
I SIZE OF DATA BLOCK 
J RETURN 



L 10061: 



.SBTTL TEST 7: EXTENDED MODE FEATURES 



TRAP 



CSHTST 



THIS TEST VERIFIES THE OPERATION OE C0MHAN05 ONLY AVAILABLE WHEN 
THE CONTROLLER IS IN THE EXTENDED FEATURES MODE. THESE COMMANDS 
ARE: 

REWIND WITH IMMEDIATE INTERRUPT 

IF THE CONTROLLER IS NOT ALREADY IN EXTENDED FEATURES MODE. IT 
IS PLACED THERE VIA A WRITE SUBSYSTEM MEMORY COMMAND. 



J THE TEST CONSISTS OF THE FOLLOWING 7 SUBTESTS 



I - 



BGNTST 



00217; 



002210 



MOV 


OEPRTl.EPRTSW 


MOV 


i>TST35I0,R0 


JSR 


PC.TSTSETUP 


MOV 


05.L00PCNT 


CLR 


T35CNT 



T7: : 
iPHlMARY ERROR MESSAGE 
lASCIT MESSAGE TO IDENTIFY 
iDO L ^TIAL TEST SETUP 
tPERf^ :M 5 ITERATIONS 
J CLEAR APE l-JFXORD COUNTER 



TEST 



TEST V, SUBTEST 1 



VERIFIES THAT A REWIND WITH IMMEDlATe INTCRRUPi "MAND 
WITH THE INTERRUPT ENABLE (IE) BIT CLEAR CO). CAU> «: 



.LtD 



!bT 



!-l|/4 

TeST 1 HAHDWARi TKST 18 TKsT HACRO Hlc?00 ..'0 MAR-tt4 08:14 PAGE ?5 8."f 
TbST ^' b-XTtNDtD MODt: I'LATURtb 



'jFQ (Jl/f. 



4P14 
4?1S 
4^16 
4<)i; 
4?t8 

4.n^ 

4:->20 
4c?21 
4^22 
42i^3 



4c^24 
422"S 
422b 
4227 
4228 
4229 
4230 
4231 
4232 



4235 

4254 
4235 

425':# 

4240 



4241 
4242 
424 3 
4244 
4245 
42^9 
4250 



42^1 

42'3? 
42i)3 
4254 
4^55 



0634 74 
063474 
0634 74 
0634 74 
063476 
063502 
063506 
063512 
063516 
063524 
063530 
063554 
063536 
065536 
063542 
063544 
063550 
063552 
063556 
063560 
C 3564 
065566 
063572 
063574 
063600 
063602 
063602 
063604 
063606 
063610 
063612 
063620 
063624 
063630 
065632 
065636 
063640 
065640 
063642 
065644 
065646 
065650 
065650 
063652 
065656 
063660 
063662 



104402 
004737 
005037 
004737 
004737 
012737 
00503/ 
004737 
103426 

012727 
000000 
015727 
000000 
005367 
001375 
005567 
001567 
005337 
001356 
005237 
OlOOOl 

104455 
001275 
003646 
012114 
013737 
012704 
004737 
105407 
005237 
010001 

104456 
001276 
005052 
01211.4 

104406 
004 73 7 
105411 
010004 
016501 



073214 
002216 
073306 
073350 
176750 
067566 
016054 



000250 
002116 
177772 
177756 
067572 
002214 



00.? 174 
067420 
01074? 

002.I14 



011074 
000002 



IliMt.DIATF-: TFRMTNATTON fiUT NO INTt-RRiJPT. STATUS IN TML Hf sSAl,t 
RUfKER \<\ CHECKLD TO VfRIM THAT THtr. MOTION (MOT) AND OPFRAnON 
IN PROGRhbS (UPM) STATUS BITS ARE BOTH SET. 



067572 



T35L00P: 




BGNSUe 




J5R 


PC.T35REST 


CLR 


INTRECV 


JSR 


PC,T55RT2 


JSR 


PC,T55Rr3 


MOV 


*65000. . r350LY 


CLR 


T55CNT 


10$: JSR 


PC.SOEINIT 


BCS 


20$ 


DELAY 


250 



067440 20$: 



25<. 



MOV 
MOV 
JSR 
BCS 
INC 
hOV 
ERRHRD 



CKLOOP 



UNITN.T55DSW 

0T35PACKET,R4 

PCURTCHR 

25$ 

FATKLG 

RO.Rl 

ERRNO , WRTMSG , SFIMSU 



JSR 


PC.REUIND 


BCS 


50$ 


MOV 


R0.R4 


MOV 


TSSR(R5).R1 



>'»>>i>>^>i>> 



BEGIN SUBTEST 
T7.1: 

TRAP 
SET COMMAND PACKET 
CLEAR INTERRUPT RECEIVED FLAG 
SET UP OTHER COMMAND PACKET 
SET UP OTHER COMMAND PACKET 
SET UP DELAY COUNTER 
CLEAR COUNTER 

DO INITIALIZE ON CONTROLLER 
BR IE INIT WAS OK 
DELAY ABOUT ,25 SEC 



■•>>>*. .>>> •> 



C*BSUB 



MOV 


0250. (PC)* 


.uof;D 





MOV 


L$Dl r.(PC)* 


.WORD 





DEC 


-6(PC) 


BNt 


. 4 


DEC 


22(PC) 


BNE 


.-20 



DEC 


T35DLY 


I 


BNE 


10$ 


J 


INC 


EATELG 




MOV 


RO.Rl 


■ 


ERRDF 


ERRNO.SFIERR.SriMSG 


i 



BUMP COUNTER 

BR, IE COtssiTER NOT DONE: 

I ERROR COUNT 
CONTENTS OF TSSR REGISTtR 
FATAL ERROR TSSR WAS NOT OK 

TRAP 
.UOhu 
.WORD 
WORD 
SET UP DRIVE t^UMBER 
SUBROUTINE NEEDS PACKET ADORES 
ISSUE. WRITE CHARACTERISTICS 
BR. IF COMMAND ISSUED OK 

iERROfl LiV.JNT 
SAVE CONTENTS 0' TSSR 
WRITE CHARACTERISTISC 



C$ERDF 

701 

5^ lERR 

SFIMSG 


S 



FAILED 




TRAP 


C$ERHRD 


.WORD 


70? 


.WORD 


WRTMSG 


.WORD 


SE I'MSG 



iLOOP IF SELECTED 

TRAP 
;CALL TAPE REWIND COMMAND 
I BR. IF NO PROBLEM 
;5ET UP REWIND PACKET ADDRESS 
(GET TSSR FOR PRINTOUT 



C$CLP1 



4 



Tt-SI 1 HAROWARl FKS I 18 Tt:ST MACRO M1?00 L'O HAR-a4 08:4^ PAGl- ^5 83 
TtST 7: EXTENDED MOOt. KtA:URKS 



4260 



4Jb? 
4263 
4264 
426S 
4266 
426/ 
4271 



4272 

4273 

4274 

4d/5 

42/6 

42 7 7 

4278 

42/<? 

4280 

4281 

4282 

4283 

4284 

4285 

4286 

4287 

42Ma 

426 

42'H) 

42*^1 

4295 



42<^ 

42^7 
4298 
4299 

4500 
4301 
4 502 
4303 
4 304 
4 305 
4306 



063666 
063672 
063672 
0636 74 
0636 76 
063700 
063702 
063 702 
063704 
063710 
063712 
063716 
063720 
063722 
063726 
063726 
063730 
063732 
063734 
063736 
063756 
063740 
063744 
063752 



063760 
063766 
063772 
063776 
064002 
064006 
064012 
064014 
064016 
064022 
064022 
064024 
064026 
064050 
064032 
064032 
064034 
064036 



005237 002214 

104456 
00127 7 
070674 
012126 



104406 
013701 
010102 
052702 
020102 
001406 
005237 

104456 
001300 
070370 
015554 

104406 
012703 
012737 
013737 



012737 
012704 
010465 
0O4737 
016501 
012 702 
020102 
001406 
005237 

104456 
001501 
070316 
012126 

104406 
005503 
001355 



30$ 



INC rAIPLG 

tRRHRD tRRNO » T3bRWN , Pl< TSbR 



CKLOOP 



jLHROR COUNT 
i REWIND NOT ACCEPTED 



0674rjO 
000002 

002214 



MOV 


T35BFR.6.R1 


MOV 


R1,R2 


HIS 


tfeiTl,R2 


CMP 


R1.H2 


BEQ 


40i 


INC 


FATFLG 



40$ 



ERRHRD ERRNO. T3bB0T . EXPREC 



CKLOOP 



000024 
000400 
003116 



06 7546 
067542 



MOV 


V>20. .R3 


MOV 


#256. .T55SZ 


MOV 


rREE.T35We 



WRITE 0ATA.ACK,CVC-1 COMMAND 
I 



140005 
067540 
OOOOOO 
016330 
0OOO02 
000200 



002214 



067540 



50$ 



MOV 


♦140005, r35PK3 


MOV 


*r35PK3.R4 


MOV 


R4,TSDB(R5) 


JSR 


PC.WAITK 


MOV 


T5SR(R5),R1 


MOV 


♦SSR.R2 


CMP 


R1.R2 


BEQ 


60$ 


INC 


FAirLCi 



'".EQ 0177 





TRAP 


CiFRHRD 




. WORD 


70^ 




.WORD 


r55RWN 




.WORD 


PKTSSR 


jlOOP IK SELfCTED 








TRAP 


C$CLP1 


jPICK UP XSTO 






jSfrT UP KXPtCTtO 






;SFT BUT BIT IN EXPECTED 




jDOES EXP - REC'D 






:BR. IF hOUML (CK) 






J ERROR COUNT 






iTAPE NOT AT BOT AFTER 


REWIND 






TRAP 


C$tRnf*D 




.WORD 


704 




.UORJ 


T35B0T 




.WORD 


EXPREC 


;L0OP IF SELECTED 








TRAP 


C$CLP1 


: NUMBER OF RECORDS 






i SET UP RECORD Sl/t 






J ADDRESS OF WRITE BUFFER 





ERRHRD ERRN0.T35WDE,PKTSSR 



60$ 



CKLOOP 

DEC 
BNE 



R3 

50$ 



[WRITE OATA.ACK.CVC-l COMMAND 

iSET UP R4 WITH PACKET ADDRESb 

;ISSl^ COMMAND 

iWAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

I SET UP EXPECTED 

J ARE THEY ECXJAL 

iBR. IF OK 

) ERROR COUNT 

iTSSR INCORRECT AFTER WRITE DATA 

TRAP C$eRHRO 
.UOPD 705 
.WORD T35W0E 
.WORD PKTSSR 

[LOOP IF SELECTED 

TRAP CICLPI 

iBUMP RECORD COUNTER 

jBR. IF MURE RRECORDS TO COUNT 



064040 01273? 000012 



JH c 



WAIT FOR TAPE TO STOP ALL MOTION 

MOV <>10.,T35ULY jSET UP DELAY COUNIER 



Jl/l 



TEST 1 HARDWARE- FfST 18 TKST MACRO Ml^OO :'0 MAR-64 Oai^l PAGF. ?3 8^ 
TbST 7: E-XTENDED MODf. Kt^ATURES 



4507 



430« 
4 509 
4310 
4311 
451^ 
4315 
4514 
4515 
4516 
4517 
431fl 
4519 
4323 



4524 

4325 
4 526 
4327 
4528 
4552 
4333 



4354 

4555 
4536 
4337 
4538 
433^ 
4 340 
4 541 
4342 
4545 
4544 
4545 
4346 
4347 
4 548 
4349 
4550 
4551 



064046 
064046 
064052 
064054 
064060 
064062 
064066 
064070 
0640 74 
064076 
064102 
064104 
064110 
064112 
064120 
064126 
064132 
064156 
064142 
064144 
064146 
064152 
064152 
064 1S4 
064156 
064160 
064162 
064162 
064164 
064170 
064174 
064176 
064202 
064204 
064204 
064206 
064210 
064212 
064214 
064214 
064216 
064224 



064230 
064236 
064242 
064246 
064252 
064256 
064260 
064264 



01^*727 
000000 
01372/ 
000000 
00536 7 
001375 
005367 
001367 
005357 
001561 
005757 
001042 
112757 
112757 
012704 
010465 
004757 
103407 
010001 
005257 

104456 
001502 
072452 
012126 

104406 
012704 
004 75 7 
105407 
005237 
010001 

104456 

001305 
005052 
012114 

104406 
012737 
005037 



000250 

002110 

177772 

177756 

0675 72 

002220 

000200 067551 
000010 067550 
067550 
000000 
016416 

002214 



067420 
010742 

002214 



70$: 



DtiLAl 250 



DEC T35Dl.f 

BNt" 70$ 

T5T F-XTFEA 

BNE 110> 

MOVB <>200,T55BS1 

MOVB *10.T55BS0 

hOV .'>T55PK2.R4 

MOV R4,TSDB(R5) 

JSR PC.CHKTSSR 

UCS 90i 

MOV RO.Rl 

INC FATFXG 

SRRHRD ERRN0,T35SSR.PI<TSSR 



90$: 



176 750 067572 
067566 



100$ 
110* 



CKLOOP 

MOV 
CLR 



*65000. 
r55CNT 



T350LY 



SLQ 01 /a 



WAIT ABOUT .25 SEC 



Mf)V 

.WORD 

MOv 

.WORD 

Df,C 

BNe 

DFC 
BNE- 



.'/2S0,(PC). 

o 

I M)l r'.fPC J 


-6fPC) 
. 4 

'2.-fPf;) 

. -20 



BUMP COUNTER DOWN 

BR, n MORE ro DELAY 

CHECK FOR EXTENDED FEATURES SW SWI'CH 

BR IF SWITCH IS ON 

WRITE MISCELLANEOUS CONT/RFAD STATu'j 

FUNCTION SELECTION BU (TURN ON EXTFEA HW SWITCH) 

WRITE SUBSY^ MEM PACKET 

ISSUE COMMAND 

WAIT FOR SSR 

BR. IF NO ERROR 

ERROR. SAVE TSSR 

[ERROR COUNT 
TbSR NOT CORRECT AFTER 



WRI . I 

TRAP 

„W0«0 

.wOftO 

.WORD 



lISCElLANtOUS 
CtERHRD 
706 
T551.SR 



L^LUUK 

MOV 


*T55PACKFT.R4 


t 

1 


JSR 


PC.WRTCHR 


) 


BCS 


100$ 


( 


INC 


FATFLG 




MOV 


RO.Rl 


t 


ERRHRD 


ERRNO . WRTMSG , SF IMSG 


J 



LOOP IF SELECTED 

TRAP 

SUBROUTINt NEEDS PACKET ADDRESS 
ISSUE WRITE CHARACTERISTICS 
BR, IF COMMAND ISSUED OK 

1 ERROR COUNT 
SAVE CONTENTS OF TSSR 
WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



PKTSSR 
C*CLP1 



SCOPE LOOP 

SET UP DELAY COUNTER 
DELAY COUNTER 



TRAP 



CURHRD 

707 

WRTM5G 

SFIMSr. 

CJCLPl 



jREWIND IMED. INTERRUPT ,ACK .CVC-1 . IE-0 COMMAND 

! 



012737 142012 067540 

012704 067540 

010465 000000 

016501 000002 

032701 000200 

001021 

00523? 06/566 



120$: 



MOV 


<>142012,T35PK3 


MOV 


*T35PK5,R4 


MOV 


R4,TSDB(R5) 


MOV 


TSSR(R5).R1 


BIT 


4SSR.R1 


BNE 


150« 


INC 


T35CNT 


DELAY 


1 



iREWINO IMED. INTERRUPT , ACK , CVC-1 . IE =^0 COMMAND 
SET UP R4 WITH PACKET ADDRESS 
ISSUE COMMAND 
GET TSSR CONTENTS 
CHECK FOR SSR SET 
BR. WHEN SSR IS SET 
BUMP THE CYCLE COUNTtR 
DELAY TO KEEP COUNTER UUWN 



14 



TfSr 1 HARDWARE TKST 1-8 Ttr.T MACRO M1?00 .'^0 MAR -84 08:40 PAGt c?') ttb 
ThST V: FXTENDtD MODt FtATURKS 





064?64 


012727 


00000 I 




064? 70 


oooooo 






064272 


013727 


002116 




064? 76 


oooooo 






064300 


005567 


17777? 




064304 


001575 






064306 


005367 


177756 




064312 


001567 




4 5S2 


064314 


005337 


06757? 


A^ss 


064320 


001352 




4 354 


06432? 


01270? 


000?00 


425S 


064326 


02010? 




4356 


064350 


001406 




4557 


06433? 


005237 


002214 


4361 


064336 








064336 


104456 






064340 


001304 






064342 


075020 






064544 


012126 




436? 


064546 








064346 


104406 




4363 


064350 


005737 


00?216 


4364 


064354 


001410 




4 365 


064356 


016501 


00000? 


4566 


064362 


005237 


002214 


4370 


0643(.6 








06456t> 


104456 






0645/0 


001505 






064 37? 


072651 






0645/4 


01?1?6 




4371 


0645/6 








064376 


104406 




4 37? 








4573 








4374 








4575 








45/6 








4377 








43/8 








4379 


064400 


013701 


067450 


4580 


064404 


01010? 




4381 


064406 


052702 


000200 


458? 


06441? 


020102 




4383 


064414 


001406 




4384 


064416 


005237 


002iil4 


4588 


064422 








06442? 


104456 






064424 


001306 






064426 


072533 






064430 


015554 




4389 


064432 








064452 


104406 




4590 


064454 


013701 


067454 


4591 


064440 


01010? 




459? 


064442 


052/02 


100000 


4593 


064446 


02010? 




4394 


064450 


00140b 





130$ 



Of:C 


135DL.r 


BNl- 


120$ 


MOV 


^j;SR.R2 


CMP 


Rl.R? 


BFQ 


140J 


INC 


f'ArKLt> 


tRRHRD 


ERRN0,T35RWfc»PI<TSSR 



140$ 



CKLOOP 



T5T 


INTRECV 


BEQ 


150i 


H0\' 


TSSR(R5).R1 


INC 


f Arriu 


ERRHRD 


ERRN0.T35INT.PKTSSR 



150$ 



CKLOOP 







SFQ 0179 




MOV 


^1 ,fPC). 




.WORD 







MOV 


L$OLY,f PC)» 




. WORD 







DEC 


-6(PC) 




BNt 


. 4 




DEC 


■??CPC) 




BNE 


. -20 


DROP OKAD TIMER BUMP 


DOWN 




BR, l^ MURE TIME TO 


GO 




SET UP f XPECTEl) 






ARF. IHEY t QUAL 






BR, IF OK 






jfcRROR COUNT 






TSSR INCORRECT AFTER 


WRITF DATA 




TRAP 


C»ERHRO 




.WORD 


708 




. UOiiO 


T35RWE 




.UORD 


PKTSSR 


LOOP IF SELECTED 








TRAP 


CSCLPl 


CHECK FOR INTERRUPTS 






BR, If NO INTERRUPTS 


OETf CTtO 




(il-T TSSR STATUS FOR 


PRINTOUT 




i ERROR COUK'T 






INTERRUPT RECEIVED C 


BAD) 






TRAP 


CiERHRO 




.WORD 


709 




.WORD 


T35TNT 




.uORD 


PKTSSR 


LOOP IF SELECTED 


TRAP 


C$CLP1 



InOW check FOR THE MOTTQN BITS SET 

t*4i4t**44i******«A*************4<4i44>4i*4>***4t* 



MOV 


T55BFR*6.R1 


MOV 


Rl.R? 


BIS 


<miT7.R? 


CMP 


Rl.R? 


BEQ 


1601 


INC 


FATFLG 



160* 



ERRHRD ERRNO , T35MOT , EXPREC 



CKLOOP 



MOV 


T35BFR*1?,R1 


MCV 


Rl.R? 


BIS 


^IT15.R2 


CMP 


R1.R2 


BEQ 


170* 



PICK UP XSTO 

SET UP EXPECTED 

SET MOT BIT IN EXPECTED 

DOES EXP • REC'D 

BR, TF EQUAL (OK) 

J ERROR COUNT 
I TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
iLOOP IF SfLECTED 

TRAP 
PICK UP Xbiv 
SEt UP EXPhCU.D 
SEt OPM BIT IN EXPECTED 
DOLS FXP - REC'D 
jBR. IF EQUAL C OK ) 



CURHRO 
71U 
T35M01 
EXPREC 

CJCLPl 
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TEST 7: EXTENDED MODt Kb'ATURt.'., 



SEQ 0160 



4 59S 
43-^9 



4400 

4401 
A40i> 



4403 
4404 
4405 



4406 
4407 
4408 
4409 
4410 
4411 

441r^ 

44 i,^ 
4414 
441S 
4416 
4417 
44ia 
4419 
44,}0 

44^:1 

442P 
44;^J 
44^4 
44?n 
44<?6 



44?7 



4428 
4429 

4430 
4451 
4432 
4433 
4434 
4435 



064452 
064456 
06445u, 
064460 
06446."^ 
064464 
064466 
064466 
064470 
064476 
0644 76 
064502 
064504 
064510 
064512 
064516 
064520 
064524 
064526 
064532 
064534 
064554 
064554 
064536 
064544 
064546 
064552 



064552 
064552 
064552 
064554 
0645S4 
064560 
064562 
064566 
064572 
064576 
064602 
064610 
064614 
064620 



005237 002214 

104456 
001307 
072722 
015554 



104406 
012737 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001567 
005337 
001361 



1.04403 
023727 
103402 
004737 



104402 

012700 
104441 
004 73 7 
005037 
004 737 
004 737 
012737 
005037 
004 73 7 
103426 



INC FAIf I U 

ERRHRD ERRN0.T350PM.EXPREC 



000027 067572 

000250 

002116 

177772 

177 756 

067572 

002214 000017 
017262 



170$ 
175$ 



CKl.OOP 

MOV 
DELAY 



*2^ .T350LY 
250 



jLRRUR COUNT 
iOPM BIT NOT SET 



J I OOP IK SM F-CTKD 

jlUT UP OELAi' COUNTEf^ 
i START DELAY 



TRAP 


C$f-«HRD 


. WORD 


7U 


.WORD 


T35CH^M 


. WORD 


tXPHH: 



TRAP 



C$CIP1 



DEC 
DNE 
ENDSUa 



CMP 
BLO 
J'JR 



999$ 



T35DLY 
175$ 



FAIFL(;,*1S 

999$ 

PC . CKDROP 



:BiiMP DELAY COUNTER 
jBR. IF MORE DELAY 



M(JV 


^'?250,(PC')* 


.WORD 





MOV 


L$DLr,(PC)* 


. WORD 





DEC 


-6(PC) 


BNE 


. 4 


DEC 


-22(PC) 


BNE 


. -20 



L 10064: 

TRAP 
IS ERROR COUNT AT 25 
BR. l\ LfSS THAN 25 
TRY TO DROP THE UNIT 



C$ESi.JB 



TEST 7; SLCTEST 2 



WITH THE INTERRUPT ENABLE (IE) BIT SET Cl), CAUSES ALM0S1 
IMHEDIATE TERMINATION AND AN INTERRUPT. STATUS IN THE MESSAGE 
BUFFER IS CHECKED TO VERIFY THAT THE MOTION (MOT) AND OPERATION 
IN PROGRESS COPM) STATUS BITS ARE BOTH SET. 



000000 

073214 
002216 
073306 
073350 
176 750 
06 7566 
016054 



BGNSUe 



SE^PRI OPRIOO 



>;.>>>>>> >^^> BEGIN SUBTEST >>>>>^^s^^>> 



067572 



10$: 



J5R 


PC.T35REST 


CLR 


INTRECV 


JSR 


PC.T35RT2 


JSR 


PC.T35RT3 


MOV 


065000. ,T350L^ 


CLR 


T35CNT 


JSR 


PC.SOFINIT 


ecG 


20$ 



T7.2: 

TRAP 
jENABLE INTERRUPTS. 

MOV 
TRAP 
SET COMMAND PACKET 
CLEAR INTERRUPT RECEIVED Fl ALi 
SET UP OTHER COMMAND PACKET 
SET UP OTHER COMMAND PACKET 
SET UP DEI AY COUNTER 
CLFAR COUNTER 

DO INITIALIZE ON CONTROLLER 
BR IF INIT WAS OK 



c$Bsue 

tfPRIOO.RO 

C$SPRI 



Tt.sr 1 HARDWARL !i,^l 18 VcS} MACRU M1200 
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4436 



44 5/ 
4458 
44?.9 
4445 
4444 



444b 
4446 
4447 
4446 
4449 
4453 
44b4 



4455 

4456 
4457 
441)8 

4459 
4460 
4464 



4465 

4466 
4467 
4468 
4469 
44 70 
44/1 
4475 



4476 
4477 



064632 
06^622 
064626 
064630 
064654 
064656 
064642 
064644 
064650 
064652 
064656 
064660 
064664 
064666 
064666 
0646/0 
064672 
064674 
064676 
064 704 

06< no 

064 714 
064716 
Ot>4 ?22 
064 724 
064/24 
064726 
064750 
064 732 
064 734 
064754 
064736 
064742 
064 744 
064746 
064 752 
064756 
064 756 
Co4 /60 
064762 
064764 
064/66 
064766 
064 770 
064774 
064776 
06S002 
065004 
065006 
065012 
065012 
065014 
065016 
065020 
065022 
065022 
06b024 



012727 
000000 
015727 
000000 
005367 
001575 
005367 
001367 
005357 
001356 
005257 
OlOCOl 

104455 
001310 
003646 
012114 
015/37 
012704 
004/57 
105407 
005237 
010001 

104456 

001311 
005052 
012114 

104406 
004737 
105411 
010004 
016501 
005237 

104456 
001312 
070674 
012126 

104406 
013701 
010102 
052702 
020102 
001406 
005237 

104456 
001313 
070570 
015554 

104406 
012703 



000250 
002116 
1/7772 
J 77756 
06/572 
002214 



0021/4 067440 20$ 

067^20 

010742 

002214 



011074 



000002 
002214 



067450 
000002 

002214 











ShO Olfil 


DtLAY 


250 




;DEL.AY ABOUT .25 StC 

MOV 

. WORD 

MOV 

.WORD 

DhC 

RNh 

Dec 


.7250, f PC)* 



LJDLSCPO* 



-6(PCJ 

. -4 

-22(PC) 

.-20 


Ui-C 


1 55Du I 




;BUMP CCJUNTtR 




BNt 


10$ 




J BR, IF COUNTFR NOT OONfc 




INC 


KATf LG 




jtRROR COUNT 




MOV 


RO.Hl 




;CONTfcNT<i OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR, 


SFIMSG 


J FATAL ERROR TSSR WAS NOT UK 

TRAP 

.WORD 
. WORD 
.WORD 


CJERDF 
712 

r.FIERfV 
SFIMSG 


MOV 


UNITN,T350SW 




; SET UP DRIVE NUMBER 




MOV 


«T35PACKFT,R4 




; SUBROUTINE NEEDS PACKET ADDRESS 


JSR 


PC.URTCHR 




;IGSUE WRITE CHARACTERISTICS 




BCf; 


25$ 




iBR, TF COMMAND ISSUED OK 




INC 


TATKLG 




: ERROR COUNT 




MOV 


RO.Rl 




;SAVE CONTENTS OF TSSR 




ERRHRD 


cRRNO.WRTMbG. 


SFIMSG 


jWRITE CHARACTERISTISC FAILED 





25$ 



CKLOOP 



30$ 



CKL OOP 



40$ 



FAILED 




TRAP 


CJERHRD 


.WORD 


713 


.WORD 


WRTMSG 


.WORD 


SFIMSG 



JSR 


PC, REWIND 


BCS 


30 y 


MOV 


R0,R4 


MOV 


TSSR(R5),R1 


INC 


FATFLG 


ERRHRD 


ERRN0.T35RWN,Pi<TSSR 



LOOP IF SELECTED 

TRAP 

CALL TAPE REWIND COMMAND 

BR, IF NO PROBLEM 

SET UP RFWIN3 PACKET ADDRESS 

GET TSSR CONTENTS 

; ERROR COUNT 

REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 



C$CLP1 



MOV 


V35BFR»6,R1 


I 


MOV 


R1,H2 




BIS 


*eiTl.R2 




CMP 


R1.R2 




BFQ 


40$ 


I 


INC 


FATFLG 




ERRHRD 


ERRN0.T35B0T,EXPREC 


1 



LOOP IF SELECTED 

PICK UP XSTO 

SET UP EXPECTED 

SET BO I BIT IN EXPECTED 

DOES EXP - REC'O 

BR. IF LQUAL (OK) 

iLRHUR COUNT 
TAPE NOT AT BOT AFTER 



TRAP 



CJFRHRD 
V14 

I35RWN 
!M<TSSR 

C$CLP1 



000024 



CKLOUP 

MOV </20. ,R3 



J LOOP IF SELECTED 
J NUMBER OF RECORDS 



RtWINO 
TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



CJeHHRO 
715 
1 5SB01 

expr:^c 

C$LLP1 



Nl/! 
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TtST 7: t.XTb-NDbD MOOt: KtATURI-.S 



St.Q Olfi? 



4478 
44/^ 
4480 
4401 
448L' 
448 5 
4484 
448b 
4486 
448/ 
4488 
4489 
4490 
4491 
449^ 
4493 
4494 
449S 
4499 



4500 

4S01 
4S0^ 
4505 
4504 
4505 
4506 
450 7 
4508 
4509 



4510 
4511 
451c^ 
4513 
4514 
4515 
4516 
4517 
4518 
4519 
45?0 
4521 
4525 



065030 
065036 



065044 
065052 
065056 
06;j062 
065066 
065072 
065076 
065100 
06510.-' 
065106 
065106 
065110 
065112 
065114 
065116 
065116 



065120 
065126 
065126 
065132 
065154 
065140 
065142 
065146 
065150 
065154 
065156 
065162 
065164 
065170 
065172 
065200 
065206 
065212 
065216 
065222 
06522A 
065226 
065232 
065232 
065234 



012/3/ 
013737 



012737 
012701 
010465 
00473 7 
016501 
012 702 
020102 
00140b 
005237 

104456 
001314 

07031FV 
012126 

104406 



012737 

012727 
000000 
01572/ 
000000 
005367 
001375 
0055fe7 
001367 
005337 
001361 
005737 
001C42 
112757 
112737 
012704 
010465 
004 737 
103407 
010001 
005237 

10445b 
001315 



000400 
003116 



140005 
067540 
000000 
016^30 
000002 
000200 



002214 



0b/!)4f, 
067542 



MOV .'k:'56. ,T35S/ 
MOV FRF.E.T35WD 



;5FT UP Rr.CORD SIZf 
jADORtSb OF WRITE BUFFER 



WRITK DATA.ACK.CVCa COMMAND 



067540 



50$ 



MOV 


^140005, T35PK3 


MOV 


i>T35PK5,R4 


MOV 


R4.TbOB(R5) 


JSR 


PCUAITK 


MOV 


T5SRCR5).R1 


MOV 


V>SSH,R2 


CMP 


R1,R2 


BtQ 


60 i 


[NC 


FATFLG 



60$ 



ERRHRD bRRNO.TSSWDE.PKi:'" 



CKl.OOP 



;WRITP DAIA.ACK.CVC^l COMMAND 

;SE:T up R4 with packet ADDRtSb 

; ISSUE COMMAND 

jWAIT FOR SSR TO 5ET 

jGET T5SR CONTENTS 

[SET UP FXPECTED 

:ARt THFY FQUAL. 

jRR, I." OK 

; ERROR COUNT 

iTSSR INCORRECT AFTER WRITE DATA 

TRAP CJERHRD 
.WORD 716 
.WORD T35WDF 
.WORD PKTSSR 

jl-OOP IF SELECTED 

TRAP C?CLP1 



000012 067572 

000250 

002116 

177772 

177756 

067572 

002220 

000200 067551 
000010 067550 
067550 
000000 
016416 

002214 



WATT FOR TAPE TO STOP ALL MOTION 

MOV *10. ,T35DLY 
70$: DELAY 250 



DEC 


T35DLY 


BNE 


70i 


T5T 


EXTFEA 


BNE 


110$ 


MOVB 


*200,T35BS1 


MOVB 


«10.T35BS0 


MOV 


«T55PK2.R4 


MOV 


R4,TSDeCR5) 


JSR 


PC.CHKTSSR 


BCT) 


90$ 


MOV 


RU.RI 


INC 


FATFLG 


ERRHRD 


ERRN0.T35SSR. PKTSSR 



SET UP DELAY COUNTER 






WAIT ABOUT .25 SEC 








MOV 


^250, (PC)* 




.WORD 







MOV 


LJDLY.CPO* 




.WORD 







DEC 


-b(PC) 




BNE 


. *1 




DEC 


•■22(PC) 




BNE 


.-20 


BUMP COUNTER DOWN 






BR, IF MORE TO DELAY 






CHECK FOR EXTLNOED FEATURES SW 


SWITCH 



BR IF SWITCH 15 ON 

WRITE MISCELLANEOUS CUNT/RtAD STATUS 

FUNCTION SELECTION 3IT (TURN ON EXTFEA HW SWITCH) 

WRITE SUBSYS MEM PACKET 

ISSUE COMMAND 

WAIT FOR SSR 

BR. IF NO ERROR 

ERROR, SAVE TSSR 

I ERROR COUNT 
TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 

TRAP CiERHRO 
.WORD 717 



TtST 7; tXTKNDfO MODI HATlWU-. 



'A '4 h\h'. 



4S»'tt 

4 50 
4'>54 



4S56 

455/ 
4556 
Abl^ 
4S40 
4S41 
4S4? 
4S45 
4S44 
4S4S 
4 '^6 
4547 
4S4fl 
4S49 
4550 
4551 
455^ 
4555 



4554 

4555 
4556 
4557 
455« 
4559 
4563 



4564 

4565 
4566 

4567 



065c^40 

W.5rM^ 

Of>5j4? 
065^44 
065. '50 
065*^'»4 
065.^56 
065^6? 
065?64 
065264 
065<>6€ 
065;* 70 
065P7;> 
065^74 
065^ M 
065^/6 
065304 



065510 
065516 
065 5?2 
065526 
065552 
065556 
065540 
065544 
065544 
065550 
065552 
065556 
065560 
065564 
065566 
065572 
065574 
065400 
065402 
065406 
065410 
065412 
065416 
065416 
065420 
065422 
065424 
065426 
065426 
065450 
0654 54 
065456 



0/<^4S.' 

104406 
01^704 
004 M/ 
10540/ 
00525 7 
0,0001 

1C4456 
001516 
00'r">5.' 
01: U4 

104406 
OU757 
005057 



012757 
012/04 
010465 
016501 
052/01 
001021 
005257 

012/2/ 
000000 
015/27 
000000 
005567 
001575 
00556/ 
001567 
00555 7 
001552 
012702 
020 I 0? 
001406 
005257 

104456 
00151/ 
0/5020 
012126 

104406 
00575/ 
001010 
0X650i 



Qb 'A CO 

oo^f^m 



I '6/50 
067566 



142212 
06 7540 

oooo^x; 

000002 

00020<> 

067566 
OOOOOl 
002116 

\7ni2 

067572 
000200 

002214 



0<Vr-l6 

oooooi; 



40 ( : 



1001 
0675/2 IIOI 









.WOR^j 


^ '.*.''. ,P 








.WfjRO 


pi' '■'. M 


r\<{ ()f)p 




|l OOP r^ Sf l.hCTKJ 


TF'AP 


C*C'>1 


MOV 


0T5SPACKf r.«rt 


I'.'feRUUT [N( l^f OS ^^ACKf 


T ADDRf- 




j';r 


PC.WRTCHR 


1 r.'.t.;f WRIff CHARACTtRI 


'. f IC'i 




ncs 


1001 


jMR, I^ COMMAND ISO'^O 


i)\f 




INC 


f ATf I (. 


itRROH CO'iNr 






MOV 


RO.Hl 


r>AVi CI.NTfNT'. Of T!,SR 






KRRHWn 


eRRNU.WRTMSG.S^ 1M',(, 


iWRirt CHARACTt.RriTlbC 


FAIl ( f) 
TRAP 
.WORO 
.UORO 

. U{>RO 


W^TM'.u 


CKl OOP 




i^Cf)Pe I COP 


TRAP 


C*C(P1 


MOV 


065000. .T55DI 1 


jSf T IP DM At :OIJNTKR 






Ct H 


T55CNT 


itX.lAy CO^JNTIR 







RfWiNO lMMEDIATe,MCK,CVC-l,U-l C0f»1AN0 



067540 



U?0$ 



MCV 


•142212, T55PK5 


MOV 


#T55PK5,R4 


MOV 


R4.TS0e(R5 1 


MOV 


TSSR(R5),R1 


BIT 


•SSR.Rl 


RN( 


1501 


INC 


T55CNT 


OtLAy 


1 



1501: 



DtC 
BNt 
MOV 
CMP 
BEO 
INC 
tRRMRD 



140* J CKL OOP 



T 550L I 

120* 

♦SSR,R2 

R1.R2 

1401 

FATFU. 

tRRNO.T55RWt,PKTSSR 



iREWINO IMMEOJ'^TE.ACK.CVC-l.It-l COMMAl* 

iSET UP R4 WITH Pf.:KET ADDRESS 

jlSSUf COMMAND 

iGET T5SR C'jnTtNT'. 

iCMtCK fOri SSR SET 

iBR. WHtN SSR I'i '.t r 

iHl^lP THF CmTLE rCXJNTER 

iDFLAY TO KEEP COUNTER DOWN 

MOV 

.WORD 

MOV 

.WORD 

DtC 

BNt 

DtC 

BNE 
(DROP DEAD TIMER BUnP DOWN 
iBR. IF MORE TIME TU UO 
»SET UP EXPECTED 
tARE TMCt FC/;AL 
I BR. IF OK 

itRROR COUNT 
INCORRECT AFTER WRITE DATA 



^l.(PC) 


LlOLi ,v 


b^PC ' 
. 4 

22(PC) 
. ^'0 



PC) 



1ST 
BNt 
MOV 



INTRECV 

15jO» 

TS^RIR5).R1 



SSR 

TRAP 

.WORD 
.WORD 
.WORD 

TRAP 
iCMfCK fOO INTERRUPT' 
iBR, JF IHTERRL*»TS DE'FCTtD 
iULT TSSA STATUS FUR PRINTOUT 



il OOP IF SELECTED 



CtERMRD 

719 

T5SRWt 



ClCUPl 



Tt'.: 1 MAWDWAFJI U'-i 1 t< Tf'.T MACRO HX^VO .'0 hm HO OH;4<l PAl,(- .'S 'JO 



'.F^ Ol'ifl 



4S6» 


06544..^ 


OOS.V'^/ 


002214 


4S^c^ 


06544b 








Of. 54 46 


104456 






O*.'.450 


OOKVO 






06545*' 


0/51 06 






0654^4 


Olr'126 




4S'^ 


0654 :-.f. 








065456 


104406 




4',, '4 








IS/'. 








4^/6 








4b/ ' 








45/8 








4S;'* 








4580 








4581 


065460 


015701 


06/450 


458^ 


06S464 


010102 




45S5 


OtbAbC 


05270? 


000200 


4584 


06S4 72 


020102 




4585 


0654 74 


001406 




4586 


0654 76 


005257 


002214 


4590 


065502 








'.)65502 


104456 






065504 


001521 






065506 


072555 






065510 


015554 




4591 


065512 








065512 


104406 




45V2 


065514 


015701 


067454 


4595 


065520 


010102 




4594 


065522 


052702 


lOOOOO 


4595 


065526 


020102 




4596 


065550 


001406 




4597 


065532 


005257 


002214 


4601 


065556 








065556 


104456 






065540 


001522 






065542 


072722 






065544 


015S54 




460? 


065546 








065546 


104406 




4605 


065550 


012757 


0OOO27 067572 


4604 


065556 








065556 


012727 


000250 




065562 


OOOOOO 






065564 


015727 


002116 




0655 70 


OOOOOO 






0655/2 


005567 


177772 




065576 


001575 






065600 


005567 


177 756 




0656O4 


00156 7 




4605 


065606 


005557 


067572 


4606 


065612 


001561 




4607 


065614 
065614 








065614 


104405 




460S 


065616 


02:j7i/ 


002ii4 OOOOiV 



150$: 



INC f AI' I t, 

KRHHRO l-RRN0,T5'JNIN.PiasSR 



CKl.fJOP 



iTNTlRRUPT NOT RtCt IVRD (HAO) 

TRAP 

.UORD 
.vJ'lPO 
il UUP If bKl>CTK[) 

TRAP 



:NUW CHFCK KOP THF MOTION fUT'. SI- T 



1701: 



1751: 



MOV 


T55B^R»6,H1 


MOV 


R1.R2 


BIS 


#fiIT7,R2 


CMP 


Rl,H2 


BtU 


160* 


INC 


f ATKU 



tRRHRD F.RRN0.T55M0T,F.XPRb:C 



160$! CKLOOP 

MOV 
NOV 
BIS 
CMP 
HEQ 
INC 
ERRHHD 



C»<LOOP 

MOV 
DF.l.AY 



T55BrR.l2.Rl 
R1.R2 

♦eiTi5.R3 

Rl.R.' 

l/0» 

FATFU. 

ERRNO.T'.SOPM.FXPREC 



0J5. ,T55ULt 
250 



DtC T5501.V 

BNf 175* 

FNOSue 



»P1LK ifP XsTO 

iSET UP FXPtCTt 

iSt T MOT BIT IN EXPFCTtO 

iDOE'S EXP • REC D 

iBR, TF EOUAl vOK J 

i ERROR COiJfil 

iTAPH NUT AT BOT AFTER RfUINO 

TRAP 
.WORO 
.WORD 
.UORO 

ILOOP IF GFIFCTFD 

TRAP 

(PICK IJP XST2 

iSET UP EXPECTED 

iSET 0PM BIT IN EXPFCTE.D 

jOOfS EXP • RFCD 

iBR. IF EQUAL (OK) 

I ERROR COUNT 

lOPM BIT NOT SET 



ciFPHpn 
1 v,n;n 

PKT'.'.e^ 

CJCIPI 



CHRMRD 
721 

T55M0T 
FxPRfcC 

C»CLP1 



CMP 



FATF-LU^frlb* 





TRAP 


CttRFftD 




.WORD 


722 




.wo»;d 


T 550PM 




.WORD 


FXPRtC 


llOOP IF SELECTED 








TRAP 


CJCLPl 


;St: UP DEI AY COUNTER 






ibTAHT OtLAr 








MOV 


0250. (PC ^» 




.UORO 







MOV 


L iDLi , .PC'^* 




.U(^D 







DEC 


-6(PC^ 




BNf 


. 4 




^EC 


221 PC) 




BNE 


, 20 


iBi^iP OeL At COi-)NTFR 






laR. IF* MORE DElfli 






I 100'-5: 








TRAP 


C*t^Uti 


lis ERROR COUNT 


AT ^^ 





i ) ■ 

> 1 



TtST 7: FXTKNObD HODt H.A^lWt-.-., 



'.r^. Ol'V-. 



4604 


0656.M 


10540? 




4610 


065b?6 


004 7 J7 


017?6? 


4611 


0656 3^ 






461.^ 








461? 








4614 








At. I', 








4^ 16 








<U,1 / 








4616 








4614 








46. HI 








46. M 








46.\^ 








4b, '.5 








46J4 








46<^S 








46.'6 








46.N' 








46c?fl 








46u'9 








4650 








4h31 








463J 


06563.> 
06565P 








06565.? 


10440? 




4655 


065654 


0O4/57 


075?14 


4654 


065640 


00473/ 


075306 


4635 


065644 


004757 


075550 


4656 


065650 


00473/ 


016054 


4657 


065654 


105407 




4658 


065656 


005? 5 7 


00?214 


464? 


06566? 


010001 




4643 


065664 








065664 


104455 






065666 


001323 






065670 


005646 






06567? 


012114 




4644 


0656 74 


01575:' 


00? 174 


4645 


065 70? 


012/04 


06/4?0 


4646 


065706 


00475/ 


01074? 


464 7 


06571? 


105407 




464© 


065 714 


005257 


002214 


4652 


065 7?0 


010001 




4655 


065 /?? 








0657?? 


104456 






065 7?4 


001324 






0657?t> 


00505? 






065750 


0l?U4 




4654 


065/5? 








06573? 


104406 




4655 


065/54 


004757 


OllOM 


46^>6 


065/40 


103411 




46") 7 


065 74? 


010004 




46". H 


065 744 


vl650l 


OOOOO*' 


465'^ 


065/50 


005237 


002214 


Aatl 


065754 







Hi 



444 J 
1 » 



4'J4$ 

"C.CKDROP 



jHK, :y n 



!Hf*N 



iTRr TO DRUP THk iJNir 



: Ti-ST 7. *;i>BTrsT 5 



067440 201: 



25»: 



VtRUIfS That THl NON TAP(. HOTIUN COriMAK*0 Gt r srATUS, I", ,'*D 
IMMEDIATArtL T AFffR TtRMlNATION Of A MtWINO WITH IMMfDTATt 
INftRRUPT COMHAND, TfRMlNATtS PROPtRL t ANO PRCWlDf 'j PROPf R 
STATUS. riRGT, A NUMBtH Of' DATA RtCOROS ARE WRITieN ^ROM HOf 
THEN THE REWIND WITH IMMEDIATE INTERRUPT COMMAND IS ISSUO ANiJ 
TERMINATION VERIFIED. THEN THE GET STATUS COMMAND IS I'^^..iJ»D 
THE GET STATUS SHOU D TERMINATE ALMOST IMMEDIATELY AND SHOW 
MOT-1 AND OPM-1 IN THE MESSAGE BUEFfR . AFTER A D'.LAf LONG 
tNOUiH TO ALLOW THt REWIND TO COMPLETE AND THE TAPE COME TO 
RtbT. GET STATUS IS AGAIN ISSUED AND THE STATUS CHECKbDi UUTh 
MOT AND 0PM SHOULD lit CLEAR. 



BGNSUO 



JSR 


PC.T55HEsr 


iSET 


JSR 


PC.T55WT2 


jSET 


JSR 


PC , T 55R T S 


iSFT 


JSR 


PC.SOflNIT 


1 00 


BCS 


201 


iBR 


INC 


FATKLG 




MUV 


RO.Rl 


J CON 


ERRDF 


ERRNO.SFIERR.SKIMSG 


iFAT 



MOV 
MOV 
JSR 
BCS 
INC 
MOV 

errhrd 



CKLOOP 

JSR 
BCS 

MOV 
MOV 
INC 
ERRHRD 



UNITN. T550SU 

«T55PACKE r.R4 

PC.WRTCHR 

?5« 

FATHd 

RO.Rl 

ERRNO . WRTMSG , SK IMSG 



PC. REWIND 

50 » 

R0.R4 

TSSR(R5\H1 

F ATFIG 

ERRNO. T35RWN,rKTSSH 



.>.>^^>>>> BEGIN SUBTEST >>> 
T / . 5 : 

TRAP 
COMMAND PACKET 
UP OTHER COMMAND PACKET 
UP OTHER COMMAND PACKET 
INITIALIZE ON CONTROLLER 
IF INIT WAS CK 

iFRROR COUNT 
TENTS Of T5SR REGISTER 
AL tRROR TSSR WAS NOT O*- 

TRAP 
.WORD 
.WORD 
.WORD 
NUMBER IN PACKE I 
NEEDS PACKET ADORES 



>>.>■>> 



c*B'::ue 



(SET UP UNIT 

i SUBROUTINE 

I ISSUE WRITE CHARACTERISTICS 



CJERDf 
/?5 

Sf URM 
SFIMSG 



iBR. 



OK 



IF COMMAND ISSUED 
i»^RROn COUNT 
jSAVE CONTENTS Of TSSR 
iWRITt CHARACTERISTISC 



llOOP I^ SELECTED 

TRAP 
J CALL TAPE REWIND COf^lANt) 
»BR. IF NO PR'^BLEM 
;SL-.T UP REWIND PACKET ADDRESS 
iGE T CONTENTS FOR CAl I 

1 ERROR COUNT 
jREWINO NOT ACCEPTED 



FAILED 




TRAP 


C$ERMRD 


.WORD 


.'24 


.WORD 


WRTMSG 


.WORD 


SFIMSG 



CJCLPl 



TtbT Vj iXTTNOF-n liODf- U.ArURh'-j 



sro oi^^E* 



4h64 

4 ''*>(> 

4668 
4664 
46/0 
4674 



467S 

46/6 
46// 
46/8 

46 n) 

4680 
4d31 
4682 
4685 
46»4 
4685 
4686 
4687 
4668 
4689 

4691 
469? 
4695 
4694 
4695 
4696 
4 700 



4 701 



06S/54 
06b /b6 
06 S r'60 
06S /6c' 
065/64 
06^3 764 
Ot>S .'66 
Of)')//.' 
0657 74 
066000 
06600? 
066004 
CX)6010 
066010 
O6601? 
066014 
066016 
0660i?0 
0660^0 
0660<?? 
066026 



/O? 
/05 
/04 
/05 
/06 
/07 
4 706 
4 709 
4710 
4711 



066054 
066042 
066046 
066050 
0660 !>4 
066060 
066064 
066070 
0660 74 
066100 
O66102 
066104 
066110 
066110 
06611P 
066114 
066116 
066120 
«^^120 



0661^^ 
O66150 
066154 



1044St 
001 5?S 
0/06/4 
01?U'6 

104406 
015701 

oioio? 

05? /O? 
0?010? 
001406 
O0S?57 

K4456 
001 3?6 
070570 
01'j*j54 

104406 
01?703 
013737 



01^>757 
012/04 
010500 
004/57 
010537 
010465 
004757 
016501 
01?702 
020102 
001406 
005257 

104456 
001527 
071250 
012126 

104406 



01275/ 
010465 
004737 



06 74'h^ 



00000, 



002214 



O00024 
005116 



140005 
067540 

017502 
067546 
OOOOOO 
016530 
0O0O02 
000200 



002214 



50 i 



CKl OOP 



MUV 


1 ?'.t^^M w. 


.Ml 


MOV 


Rl.H? 




HIS 


^u n . H? 




CMf 


R1.H2 




HtU 


401 




INC 


f ATK f. 





hRRHRD eHRNU.T35H0T,tXPRtC 



40$ 



06V542 



CKl OOP 

MO; 
MOV 



020. .H5 
FRH ,T55WH 



,WORO 
.WORO 
.WORD 

)l OOP V »J 1 fCFK) 

UifXP 

;t'lCK [JP XMO 

iU[ I l*» f-XPE CTEO 

j'.f T HOT BIT IN f-XPfXlt-.D 

(Dot S t.XP • HhC D 

;HR, U \ (-UAI (OKI 

jtRROR coi.^r 

J TAPE NUT AT tiOT AFTER RfcUINU 

TRAP 
.WORD 
.WORD 
.WORD 

llUOP I*- SEl.tCTf-D 

TRAP 

J STARTING RECORD 'A/k. 

1 STARTING WRITE HUI-KER ADDRESS 



CM PHRI; 

/.*'j 
r'>'.RWN 

Pin': M 

LJCl.Pl 



CURHR! 

726 

T 5 SHOT 
tXPR^C 

CJCLPl 



*t.tt,4.*h** 



;WRlTr OATA.CVC-l.ACK COMMAND 



067540 65$: 



H0»: 



MOV 


0140OO5. T55PK5 


(WRITE 0ATA,CVC*1,ACK COMMArC 


MOV 


♦T55PK5,R4 




j5ET UP R4 WITH PACKET ADDRESS 


MOV 


RS.RO 




jSfT PATTERN IN CORRECT REGISTER 


JSR 


PCFILLMtM 




jFiLL MfhORt WITH RECORD SIZe 


MOV 


R5.T555/ 




(SET UP RECORD SI^E IN PACKET 


MOV 


R4.T5DBCR5) 




(issue rOMMANO 


JSR 


PC.WAITr 




iWAIT FOR SSR TO SET 


MOV 


T55R(R5),Rl 




(Gf T TSSR CONTENTS 


MOV 


0SSR.R2 




iSE |- IP FV-»ECTED 


CMP 


Ri.n2 




(ARE THEY EQUAL 


BEQ 


eof 




I BR, U OK 


INC 


FATFIG 




(ERROR COUNT 


ERRHRD 


tRRNV!,T55WDC 


.PKTSSR 


J TSSR INCORRECT AFTER WRITE DATA 

TRAP C»£RHR[) 
.WORD 72/ 
.WORD T5SU0C 
.WORD PKTSSR 



CKLOOP 



(LOOP I*-^ SELECTED 



TRAP 



CJCLPl 



WRITE DATA RETRY . CVC - 1 . ACK COMMAND 



141005 067540 

OOOOOO 

016330 



MOV 


0141005. T55PK3 


MOV 


R4.TSDB(R5) 


JSR 


PC^WAITF 



(WRITE DATA HE THY .CVC-1 . ACK COMMAND 
( I .SUE COMMAND 
;UAIT FOR SSR TO SET 



Tt-ST 1 HAROWAFU ll'.l 1 8 TM.T M/^C^U MU^IO .'0 MAW-tt4 OH;40 PA(jf <^^ 95 
Ttbr 7; ^XTb.NOLD nODt. rLA^l»HtS 



SFQ Ol^V 



471u^ 
4 7 V .^ 
4a4 
471S 
4/16 
4 7^0 



4 7.n 

4 7a J 

4 7^4 
4/u'S 
4 7?6 

4 7^; 

A7P.B 
4;c'9 
4733 



4754 

4735 
4/56 
4757 
4758 
4759 
4 740 
4 744 



474S 

4 74f. 
4/4.' 
4/48 
4/49 
4 700 
4 751 
4/53 
4/53 
4 754 
4 755 
4 756 
4757 
4 758 
4 759 
4 760 
4761 

4?6a 



066140 
066144 
066150 
066 15^ 
066154 
066160 
O66I0O 
066162 
066164 
066166 
066170 
066170 
066172 
066174 
066200 
066202 
066206 
066210 
066212 
066216 
06622? 
066222 
066224 
066:.*26 
066250 
066232 
066232 
066254 
066240 
066242 
066246 
066250 
066252 
066256 
066 c? 56 
066260 
0662^32 
066264 
066266 
066266 
066270 
066274 



066302 
066310 
066314 
066320 
066324 
066330 
066354 

066540 



016501 
012/0? 
020102 
001406 
00527.7 

104456 
001350 
072275 

012126 

104406 
005 725 
020327 
001315 
004 757 
105411 
010001 
016501 
005237 

104456 
001331 
0706 74 
015554 

104406 
015701 
010102 
052 702 
020102 
001406 
005237 

104456 
001332 
070370 
015554 

104406 
012705 
013737 



012737 
012704 
012700 
0O4737 
010537 
010465 
004 / 5 7 
016501 



000002 
000200 



002214 



0000!) 2 
011074 



000002 
002214 



067450 
000002 

002214 



100001 
067540 
17/777 
017502 
06 7546 
000000 
016550 
000002 



90$: 



0OO024 

003116 067542 



HOV 

CMP 
HFCJ 
INC 
bRRHHD 



CKl OOP 



230 J: CKl. OOP 



240>: CKLOOP 

MOV 
MOV 



TSSR(R5),R1 

^S'1R.R2 

H1.N2 

90 ( 

F ATfLG 

ERRNO,T55WR»- .PKTSSR 



TST 


(R5). 


CMP 


R5.D42. 


HNt 


65« 


JSR 


PC. RF WIND 


BCS 


250t 


MOV 


RO.Rl 


MOV 


TSSR(RS\^^1 


INC 


rATFLG 


tRRHRD 


ERRNO,T35RWN.EXPRtC 



MOV 


l35BrR*6,Rl 


MOV 


R1.R2 


BIS 


^IT1.R2 


CMP 


R1.R2 


BEU 


240$ 


INC 


FATFLG 


tRRHRD 


ERRNO,T35UUT.tXPRtC 



020. »R5 
rREF, I35RB 



ll.FT Tr.SH CONIFNIS 

I'.t r UP FXPtcie.D 

jARF THEr LUUAl. 
I MR, U OK 

;FRROR COUN^ 
jTSbR INCORRFCT AFTER 



llOOP IF ''^rLECTED 



WRJTf OA 
TRAP 
.WORD 
.WORD 
.WORD 



TRAP 
COUNTER 



TA RETRr 
CiFRHRD 
726 
T55WR^ 
PKT'-.'-.jv 

CSCl.Pl 



jBUMP RECORD Sl/t 

(AT 42 SI/E rFT 

J BR. If MORE RECORDS TO WRITE 

I CALL TAPE REWIND COMMAND 

iBR. If NO PROBLEM 

J SAVE 



TSSR 



I GET 

jFRROR COUNT 
jREWiNO NOT ACCEPTED 



TRAP 
.WORD 
.WO«D 
.WORD 

TRAP 



J I OOP IF' SELECTED 

iPICK y.iP XSTO 

iSET UP EXPECTED 

;SET BOT BIT IN EXPECTED 

J DOES EXP - REC D 

jBR. IF' EQUAL (OK) 

; ERROR COUNT 

I TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

TRAP 
;STARTING RECORD 5I7F 
I STARTING READ BUFFER ADDRESS 



iLOOP V SELECTED 



!rEAD DATA.ACK COMMAND 



067540 265*! 



MOV 


0100001. T35PK3 


MOV 


OT55PK3.R4 


MOV 


^177777, RO 


JSR 


PC.FlLLhEM 


MOV 


R3,T35S/ 


MOV 


R4.TSD3(R5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5).Rl 



CMRHRD 
729 

:35RWN 
EXPREC 

CJCLPl 



C$eRHRO 
750 

T35B0T 
tXPREC 

CJCLPl 



iREAD DATA.ACK COMMAND 

I SET UP R4 WITH PACKET ADDRESS 

iSET PATTERN IN CORRECT REGISTER 

iFILL MEMORY WITH RECORD SI/E 

J SET UP RECORD SI/E IN PACKET 

iISSLt COMMAND 

iWAir FOR S5R TO SET 

iGET TSSR CONTENTS 



1": I ' . 

H/mOWARt, TKSl 1 8 TT^U MACRO Ml^OO JO M'^R-a4 08:4^ PACiK P^i 'iA 



ThSl 7: KXTKNOtD MODI-. KtATLJRK^j 



4 765 
4 /f-.f, 
4 770 



4771 

4/7? 
4 7 73 
4//4 

r?b 

776 

n? 

7 79 
780 



4 
4 
4 
4 
4 
4 
4 784 



4 785 



786 
78 7 
788 
789 
790 
791 
79? 
793 



4 794 
4795 



4 796 
4 797 
4 798 
4 799 
4800 
4801 
480? 
4803 
4804 
4605 
4806 
4807 
4808 
4 809 
4310 
4811 



066344 
066350 
066351? 
066354 
066360 
066360 
066 36i? 
066364 
066366 
0663"'0 
0663 70 

0663 7 :j 
066376 
066400 
066404 
066406 
066410 
06641? 
066414 
066416 
06642? 
06642? 
066424 
066426 

0664 50 
066452 
066432 
066454 
066456 
066440 
066442 
066444 
066446 
066452 
066454 
066454 
0664 56 
066456 
066456 
066456 
066460 
066466 
066470 
066474 



01? 70? 
02010? 
001406 
005237 

104456 
001533 
06 766? 
012126 

I0440t. 
O!3702 
010304 
162704 
060204 
021403 
001410 
011401 
010302 
005237 

104456 
001334 
72355 
015554 

104406 
005724 
160204 
020403 
001360 
005723 
02032 7 
001315 

104406 



104403 
023727 
105402 
004737 



000200 
002214 



003116 
000024 



280$ 



285$ 



002214 



000050 



OKI OOP 

MOV 
MOV 
SUB 
ADD 
CMP 
BtQ 
MOV 
MOV 
INC 
r.RRHRD 



290$! CKLOOP 



TST 
SUB 
CHP 
BNE 
TST 
CMP 
BNE 
CKIOOP 



300$: 
330$i 



ENDSUB 



SfJ 0188 



M(JV 


OSSR.R? 




i'.FT UP KXPlCTf-.D 


CMP 


Rl.R? 




jARl THEY hQUAl 


Bt Q 


?80 $ 




jhR. W OK 


INC 


TATM G 




jtRROR COUNI 


tRRHRD 


hRRNU.TSbRDr 


.Pl<T',bR 


■Tr>bR INCORRECT AFFKR 



ilOOP IK 



ORRECT 


AFFKR 


RKAD OAT A 








TRAP 


C$FRHR[) 




/• 


. WORD 


731 




. Wt)RO 


T^SRDt 






. WORD 


PKTSSP 


sri t CM u 







F"REE,R? 

R3,R4 

0?0. ,R4 

R2,R4 

CR4).R3 

290$ 

(R4').R1 

R3.R2 

rATFLG 

ERRN0,T35DTA.fcXPRtC 



TRAP 



jGE. T BUfFER ADORESS 

iGET RECORD 5I2E 

iPOINT BPCK TO 1ST RECORD 

iPGINT TO 1ST LOC IN BU^'FfcR 

lOATA URITTFN - READ 

jBR, IF DATA OK (GOOD) 

iPlCK UP BAD DATA 

jSET UP EXPECTED 

i ERROR COUNT 

J DATA IN BUFFER NOT CORRECT 

TRAP 
.WORD 
.WORD 
.WORD 



C$Cl PI 



jlOOP IF SELECTED 



CR4)* 

R2,R4 

R4.RS 

285 r 

(R3)» 

R3.O40. 

265$ 



TRAP 



iBUnP TO NEXT 

I BACK TO RECORD SIZE 

;AT ENO OF RECORD Yt T 

»BR. IF MORE DATA TO CHECK 

jBUMP RECORD SIZE 

iDONE YET 

iBR. IF NOT DONE YET 

jUOOP IF SEIECTED 



CJERHRD 
73? 

T35DTA 
EXPREC 

C$CLPl 



(MORE READS) 



TRAP 



C$CLP1 



I i>>ii> >>^>i> ENO SUBTEST >>>>>>^>>'»» 



002214 
017262 



000017 



I 10066: 

TRAP 
lis ERROR CO*JNT AT ?5 
iBR. IF LESS THAN 25 
I TRY TO DROP THE IJNIT 



CMP FATFLG.«15. 

BLO 9991 

JSR PC.CKDROP 
999$: 

I ♦ 
I 

iTf.ST 7. SUBTEST 4 

! VERIFIES THAT A TAPE-MOTION COMMAND (READ. WRITE. POSITION), 

: ISSUED IMMEDIATATELY AFTER TERMINATION Oi-' A REUlNO WITH 

J IMMEDIATE INTERRUPT COMHANO, IS "QUEL>EO" BY THE CONTROLLER AND 

I THEN EXECUTES PROPERLY. 



CJtSUB 



0664 74 



I " 



BUNSUB 



ii»>i>>i:>i>i BEGIN 



SUBTtS 



:»'.-»'i'i>i'»'»-»i> 



■I 1 ' 



TfSr 1 H/UiDWAUt USI 1 8 Tr.T MACRO Ml(>00 
TtST 7: KXTtNDtD MODI", Kt.ATUfn-S 



\> HAR 64 08:44 



PAUt e?5 'Jb 



SFQ Ol*i9 



'^815 
4*^14 
48i^ 
4H16 

4Hi; 

4,-<18 
4819 



46;^0 
48^1 
482:? 
48?6 
4«if7 



4ei?8 
48;>9 
4830 
4851 
485.? 
4856 
4837 



4838 

4839 
4840 
4841 
484 c^ 
4843 
4847 



4546 

4849 
48S0 
4851 
4852 
4853 
4a54 



0664 74 
0664 74 

0664 76 
066502 
066506 
066512 
066520 
066524 
066526 
066526 
066532 
066534 
066540 
066542 
066546 
066550 
066554 
066556 
066562 
066564 

0665 70 
0665 72 
066572 
0665 74 
066576 
066600 
066602 
066610 
066614 
066620 
066622 
066626 
066650 
066630 
066652 
066654 
066656 
066640 
066640 
066642 
066646 
066650 
066654 
066656 
066662 
066662 
066664 
066666 
066670 
066672 
066672 
066674 
066700 
066702 
066706 
066710 
066712 



10440? 
00475/ 
004 75 7 
004 737 
012757 
004757 
105426 

012V27 
000000 
015727 
000000 
00556 7 
001375 
005567 
001567 
005557 
001556 
005257 
010001 

104455 
001555 
005646 
012114 
015737 
012704 
004757 
105407 
005237 
010001 

104456 
001356 
005052 
012114 

104406 
004757 
105411 
016501 
010004 
005237 

104456 
001557 
070674 
012126 

104406 
015701 
010102 
052702 
020102 
001406 
005257 



075214 

0/5506 

075550 

176750 067572 

016054 10$ J 



000250 
002116 
177 7 72 
177756 
067572 
002214 



002174 
067420 
010742 

002214 



011074 
000002 
002214 



06 7450 

000002 

002214 



JSR 

j.;r 

JSR 

Mnv 

JSR 
BCS 
DtLAY 



067440 20$: 



23$ 



30$ 



CKLOOP 

JSR 
BCS 
MCV 
MOV 
INC 
ERRHRD 



CKLOOP 



PC,T55RrST 
PC,T55HT2 
PC,T55HT5 
^65000. , I55UL 



PC 

.'Ot 

250 



■ OFINIT 



DFC 


T55DI V 


BNF. 


10$ 


INC 


FATFLti 


MOV 


RO.Rl 


ERRDF 


HRRNO.SF'ItRR/oriMSG 



MOV 


UNITN,T55DSW 


MOV 


«T55PACKEr,R4 


JSR 


PC.WRTCHR 


BCS 


231 


IHC 


FATFLG 


MOV 


RO.Rl 


ERRHRD 


ERRNO.WRTMSG.SFlMbG 



FC.RFWIND 

50$ 

TSSRtR5),Rl 

R0.R4 

MTFLG 

ERRN0,T35RWN,PKT5SR 



MOV 


T35B'^R*6.R1 


MOV 


R1.R2 


BIS 


*Biri,R2 


CMP 


RI.R2 


BEQ 


401 


INC 


^ATFLG 



St T 
ShT 



T 7.4: 

TRAP 
COMMAND PACKl T 
i.>P OrHl.R COMMAND PACKf T 
SET yjP OIHLR COMMAND PACKf- T 
SET iJf- DEL A I COUNTER 
DO INITIAL I/E ON CONTROI.i>R 
BR IF INIT WAS OK 
DELAr ABOUT ,25 SEC 



C$BSUfl 



MOV 


02'-0.fPC >. 


. WORD 


(1 


MOV 


1 $01 f .^PC")* 


.WORD 





DEC 


•6CPc:) 


BNE 


. 4 


DEC 


-22(PC) 


BNE 


. -20 



:BUMP COUNTER 

I BR, IF COUNTER NOT DONE 

1 ERROR COUNT 
jCONTENTS OF TSSR Hft.lSTtR 
jFATAL ERROR TSSR WAb NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 
(DRIVE) NUMBER 
NEEDS PACKET ADDRES: 



SET UP UNIT 
SUBROUTINE 



C$EHDf 

755 

S» ILRR 

SFIMSb 



(ISSUE WRITE CHARACTERISTICS 



OK 



(BR, IF COMMAND ISSUED 

(ERROR COUNT 
;SAVf- CONTENTS Of ISSR 
(WRITt CHARACTERISTISC 



LOOP IF SELECTED 

TRAP 
CALL TAPE REWIND COMMAND 
BR, IF NO PROBLEM 
GET TSSR CONTENTS 
GET PACKET ADDRESS 

J ERROR COUNT 
REWIND NOT ACCEPTED 



FAILED 




TRAP 


CitRHRO 


.WORD 


7 34 


.WORD 


WRTMSU 


.WORD 


SF TMSG 



CJCLPl 



TRAP 


C$ERHRD 


.WORD 


755 


.WORD 


T ?5RWN 


.WORD 


PKTSSR 


;LOOP IF SELECTED 




TRAP 


C$CLP1 


(PICK UP X5T0 




jSEi UP EXPECTED 




J SET BOT BIT IN EXPECTED 




iDOfrS EXP - RECD 




;BR, IF EQUAL (OK ) 




•ERROR COUNT 





TbsT I HAROWARt- fhSl I rt Tf^'U MACRO hlt?0O jO MAR -HA OAj/J/) PAU^ ?S 96 
TtSr 7; t:XitNDED MOlJt-. rilATURbb 



MQ 0190 



48S6 



4HS*J 

48*iO 
4861 
436? 
4H6? 
48t.4 
486S 
4866 
486^ 
486<3 
486S 
4870 
48/1 

46 ;p 

48?5 
48/4 
48/5 
48/6 
4877 
48/8 
48 79 
4880 
4884 



488'j 

4886 
4887 
4888 
4889 
4890 
4891 
489? 
4893 
4894 
489!> 
4896 
489 7 
4898 
4899 
4900 
4904 



4905 



066716 
066 716 

066 7ao 

066 7^? 
0667.^4 
0667u^f, 
066^*6 
0667.^0 
066734 



066 74c' 
066750 
066754 
066756 
06676? 
066766 
06677,? 
066 776 
067002 
06 7006 
067010 
067012 
067016 
067016 
06/020 
067022 
06 7024 
06 702^ 
067026 



067030 
06 7036 
067042 
067046 
067052 
067056 
06 7060 
06 7062 
06 7066 
067066 
067070 
0670 72 
06 70 74 
00/0/6 
067076 



10-14^S6 

001540 
070370 
015554 

104406 
012703 
013737 



01273/ 
012704 
010300 
00473/ 
010537 
010465 
004757 
016501 
012702 
020102 
001406 
005257 

104456 
001341 
071230 
012126 

104406 



012737 
010465 
004757 
016501 
012/02 
020102 
001406 
005257 

104456 
001342 
07227S 
015554 

104406 



000024 
003116 



140005 
067540 

017502 
067546 
000000 
016550 
000002 
000200 



002214 



111005 
OOOOOO 
016330 
0C0002 
000200 



002214 



fcRRHRl) ERRNO , T35B0T . EXPhiKC 



40$ 



067542 



CKl OUP 

HUV 
MOV 



020. ,R3 
KR(-> ,T^5WH 



iTAPF. NUT AT BUT AF TLR Rl.WJN!) 

TRAP CiePHRD 

.WORn '^M', 

.WORD T3'HtJr 

.WORD t"Xt>R(-c 

1 1 OOP i^ sti.»cTe;u 

TRAP C$CLP1 
jSTARTIf^; Rf CURD SUf 
{STARTING WRITE BUFFER AODREbS 



WRITK DATA, CVC- LACK COMMAND 
1 



067540 65$ 



60$ 



MOV 0140005. T35PK3 

MOV 0T55PK5,H4 

MOV n5.R0 

JSR PC.FILLMEM 

MOV R3,T35S7 

MOV R4, rS0B(R5) 

JSR PC.WAITF 

MOV TSSR(R5),R1 

MOV 0S5R.R2 

CMP R1.R2 

BtQ 80$ 

INC FATFLG 

ERRHftD ERRNO , T35WDC . PK T SSR 



CKl.OOP 



iWRirt UAIA.CVC-l.ACK COMMAND 
I SET UP R4 UITH PACKET AODRFSS 
jSET PATTERN IN CORRECT REGISTER 

FILL MEMORY UITH RECORD Sl/f 

SET UP RECORD Sl/t IN PACKET 

ISSUE COMMAND 
iUAIT FOR SSR TO SET 

GET TS5R CONTENTS 

SET UP EXPECTED 

ARE THEY EQUAL 
iBR, IF OK 

jERROR COUNT 
iTSSR INCORRECT AFTER WRITE DATA 

TRAP C$ERfr*Rl) 



;100P IF SELECTED 



.WORD 
.WORD 
.WORD 

TRAP 



75/ 

T55WDC 

PKTSSR 

CiCLPl 



WRITE DATA RETRY . ACK . SWB-1 COMMAND 



067540 



MOV 


#111005, T55PK3 


MOV 


R4,T50BCR5) 


JSR 


PC. WAITE 


MOV 


TSSR(R5).R1 


MOV 


«SSR.R2 


CMP 


R1.R2 


BEQ 


90$ 


INC 


FA TUG 



90$: 



ERRHRO ERRNO , T35WRF , EXPREC 



CKLOUP 



jWRITE DATA RE TRY , ACK , 5WB-1 COMMAND 

; ISSUE COMMAND 

jUAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

(SET UP EXPECTED 

lARE Tt^Y EaUAl 

iBR. IF UK 

I ERROR COUNT 

iTSSR INCORRECT AFTER WRITE DATA ReTH> 

TRAP CJFRHRD 
.WOfiD 7 58 
.WORD T55WRF 
.WORD FXPREC 

;LOOP IE- SELECTED 

TRAP C$CLP1 
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■^906 
490/ 
4906 
4909 
4910 
4911 
-'Ml? 
4-»13 
4917 



4918 

4919 
49.::0 
49?1 
49^<? 
49c_^3 
49J4 
49i?a 



49,>9 

4950 
4951 
495^ 
4955 
4954 
495S 
4956 
495/ 
4958 
4959 
4940 
4941 
494*.' 
4945 
4944 
4945 
4946 
494/ 
4948 
4952 



49S5 

4954 
4955 
4956 



067100 

06/io;^> 

067106 
06/110 
067114 
067116 
0671^2 
067124 
067150 
067150 
06/15? 
067154 
067136 
06/140 
067140 
06714? 
067146 
067150 
06 7154 
067156 
067160 
067164 
067164 
067166 
067170 
06717? 
06/174 
0671/4 
0671/6 
067202 



06/210 
067216 
06722? 
067226 
06 7252 
067256 
067242 
067246 
06/250 
067252 
067256 
067256 
067260 
06/262 
06 7264 
067266 
06 7266 
06 72 /O 
0672 74 
067276 



005725 
020527 
001515 
004757 
105411 
016501 
010004 
005257 

104456 
001545 
070674 
Oi?126 

104406 
015701 
01C102 
052702 
02010? 
001406 



104456 
001544 
070570 
015554 

104406 
012705 
013737 



012757 
012704 
010537 
010465 
004757 
016501 
012702 
020102 
001406 
005237 

104456 
001345 
067662 
012126 

104406 

01570? 
010304 
162704 



00005? 
011074 
000002 
002214 



067450 
000002 

002214 



000024 
003116 



100001 
067540 
06 7546 
000000 
016530 
000002 
000200 



002214 



005116 
000024 



230$: 



MOV 


T55BfR.6,Rl 


MOV 


R1,R2 


BIS 


*eiTl,R2 


CMP 


R1.R2 


BEQ 


240$ 


INC 


FATFLG 


ERRHRD 


ERRN0,T35BUT,bXPRtC 



067542 



240$; CKLOOP 

MOV 
MOV 



«20. .R5 
rREE.T35RB 



TRAP 

;PICK UP XSTO 

;SET UP EXPECTED 

iSET BOT BIT IN EXPECTED 

;DOES EXP - REC'D 

I BR. IF EQUAL COK) 

; ERROR COL^T 

(TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

IRAP 
ADDNLiiS 



jLOOP IF SELECTED 



STARTING 
STARTING 



P-^CORD SIZE 
RcAD BUFFER 



READ DATA.ACK COMMAND 



067540 265$: 



MOV 


#100001, T55PK3 


jREAD DATA.ACK COMMAND 


MOV 


«T55PK5,R4 




iSET UP R4 WITH PACKET 


MOV 


R5.T55SZ 




: SET UP RECORD SIZE IN 


MOV 


R4.TSDB(R5) 




(ISSUE COMMAND 


JSR 


PC.UAITF 




jWAIT FOR SSR TO SET 


MOV 


TSSR(R5).R1 




(GET TSSR CONTENTS 


MOV 


<JS5R,R2 




: SET UP EXPECTED 


CMP 


R1.R2 




jARE THEY EQUAL 


BEQ 


?80» 




iBR. IF OK 


INC 


FATFLC; 




(ERROR COUNT 


ERRHRD 


ERRN0.T35RDF 


.PKTS5R 


I TSSR INCORRECT AFTER 



ADDRESS 
PACKET 



SEQ 01*^1 



TST 


CR5)* 


J BUMP RECORU SIZE COUNT 


bR 






CMP H5,fl42. 


;AT 42 StZE YET 








BNh 


6Si 


;BR, IF MORE RECORD". 


TO 


WRITE 




,] ;r 


PC.REUIND 


;CAl, L TAPf REWIND COMMAND 




BCS 


250$ 


;BR, IF NO PROBl EM 








MOV 


TSSR(RS).R1 


;GET TSSR CONTENTS 








MOV 


R0.R4 


iCUT PACKET ADDRESS 








INC 


FATt I t, 


! ERROR COUNT 








ERRHRD 


ERRNU.T35RWN,PKTS'iR 


(REWIND NOT ACCEPTED 




TRAP 
. WORD 
.WORD 
.WORD 


C$ERHRD 

75'* 

T 5SRWN 

PKTSSR 


CKLOOP 




(LOOP IF SELECTED 









C$CLP1 



CJFRHRO 
740 

T55B0T 
EXPREC 

C$CLP1 



280$: 



CKl OOP 



(LOOP IF SELECTED 



MOV 


FREF.R? 


MOV 


R^,R4 


sue 


^20. ,R4 



iGET BUFFER 
(GET RECORD 
(POINT BACK 



READ DATA 
TRAP 
. WORD 
.WORD 

.WORD 

TRAP 



ADORES 
SIZE 
TO 1ST 



CiERHRD 

741 

T55RDf 

PKTSSR 

C$CLPl 



RECORD 
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49?3 

4960 
4961 
496.' 
4963 
4^67 



4968 

4969 
4970 
4971 
A972 
497i 
4974 
4975 
4976 
4977 

4976 



49/9 
4980 
4981 
A9S^ 
4985 
4984 
4985 
4986 
498/ 
4968 
4989 



4990 
4991 
499^ 
4994 
4996 
499/ 
4948 
4999 
5000 
5001 
5002 
5005 
5004 
5005 
5006 
500/ 

i>ood 



06/502 
067304 
067306 
067310 
06731<? 
067314 
067516 
067322 
067322 
067324 
067326 
067330 
06/352 
067332 
067334 
067356 
067340 
067342 
067544 
067346 
06 7350 
067354 
067356 
06/356 
067360 
067360 
067560 
067 362 
067370 
067372 
067376 



067376 
06/402 
067404 
06/410 
06/410 
067412 



067420 
067420 
06 /422 
06/424 
067426 
06 7430 
06 7450 
067452 
067434 
067456 
06/440 
067442 



060204 
000303 
021403 
001410 
011401 
010302 
005257 

104456 
001346 
072355 
015554 

104406 
005724 
160204 
000 303 
020405 
001356 
005723 
020327 
001315 

104406 



104403 
023/27 
105402 
004737 



004/5 7 
105002 
000157 

104452 
003760 



067420 

100004 
067450 
000000 

000012 

067442 
000000 
000024 
000000 
000000 



28ti5: 



00^214 



290$ 



ADD 

SWAtJ 

CMP 

bLU 

MOV 

MOV 

(NC 

hRRHRD 



CKLOOP 



000050 



300$ 



ENOSUe 



002214 000017 
017262 

016556 
0634/4 



999$ 



165$: 



R2.R4 

H5 

CR4).R3 

290$ 

CR4),R1 

R3.R2 

FATFl G 

tRRN0.T3bDTA,EXPRbC 



TST 


(R4)* 


sue 


R2.R4 


SUAB 


R3 


CMP 


R4.R3 


BNt 


285$ 


TST 


(R3)* 


CMP 


R3.040. 


BNE 


265$ 


CKLOOP 





CMP 


f-ATFLG.<M5 


Bt.O 


999$ 


JSR 


PC.CKDROP 



JSR 


PC.TSTl OOP 


BCC 


165$ 


JMP 


T35L00P 


EXIT 


TST 



Ilocai. storage 


FOR THIS 


.-<.*1C 


O6177770 


T35PACKET: 




.WORD 


100004 


.WORD 


T55DATA 


.WORD 





.UORD 


10. 


T350ATA: 




.WORD 


T55BFR 


.WORD 





.WORD 


20. 


.WORD 





T55USW: .WORD 





TJ5t3FR: .BLKW 


25. 



TEST 



SEQ 0192 



POINT TO 1ST LOC IN E)'jrFER 

SWAP BYTES SWe-1 ETC. 

DATA WRITTEN - READ 

BR. li DATA OK (GOOD) 

PICK UP BAD DATA 

SET UP EXPECTED 

i ERROR COUNT 

DATA IN BUF?"ER NOT CORRECT 

TRAP 
.WORD 
.WORD 
.WORD 



LOOP IF SELECTED 



TRAP 



C$ERHR() 
742 

T'/jDTA 
LXPREC 

C$CLPi 



>>i>>>>>>i>> 



:BUMP TO NEXT ADDRESS 

iBACK TO RfCORD ST/E 

;PUT R5 BACK INTO SHAPE 

:AT tND OF RECORD YET 

jBR, IF MORE DATA TO CHECK 

I BUMP RECORD SIZE 

iDONE YET 

;BR» IF NOT DONE YET (MORE READS) 

jLOOP IF SELECTED 

TRAP C$CLP1 
END SUBTEST >>>>>>>>>>>> 
L10067: 

TRAP CJtSUB 
;IS ERROR COUNT AT 25 
iBR, It- LtsS THAN 25 
J TRY TO DROP THE UNIT 



DO WE NEED TO ITERATE TEST 

BR. I^ NO LOOP REQUIRED 

eXECUTF AGAIN 

ALL DONE THIS TEST 

TRAP C%[ XIT 
.WORD L10063 



: COMMAND PACKET FOR TEST 

jWRITE CHARACTERISTICS COMMAND. WITH 

iADDRESS OF CHARACTERISTICS BLOCK 

iSTARTING VALUE Of BLOCK Sl/E 
iCHARACTERISTICS DATA BLOCK 
J ADDRESS OF MESSAGE BUfFER 

1 LENGTH OF MESSAGE BUFFER 



ACK 



J SELECT DRIVE 
1 MESSAGE BUFFER 
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SEQ 0193 



*j009 

501^ 
SO 14 
S015 
SO 16 
1>017 
SO 18 
S019 
S023 
S0.74 

S0,?6 
50r:7 
50^8 
S0?9 
S030 
5051 
503? 
5035 
5054 
5055 
5036 
505 7 
5058 
5059 
5040 
5041 
504? 
5043 
5044 
5045 
5046 
5047 
5048 
5049 
5050 
5051 
505? 
5053 
5054 
5055 
5056 
505/ 
5058 
5059 
5060 
5061 
506? 
5063 
5064 
5065 
5066 
5067 
5068 
5069 
5U70 



06/550 
067530 
06755? 
067534 
067536 

067540 
067540 
06754? 
06754? 
06 ('544 
067546 



067550 

067550 
0^7551 
Ob/55? 
067554 



0675^6 
067560 
06756? 
067564 



067566 
067570 
0675?i? 



06 '5/4 
06766? 
067731 
0700?6 

0/0110 
0/0160 
0/0? 35 
070316 
070370 
070465 
070540 
0/0617 
070674 
0/0M5 
071016 



067550 

100006 
067550 
000000 
000006 



100005 

005116 
000000 
000000 



010 

?00 

000000 

000000 



100?05 
100605 
10??05 
177777 



000000 
000000 
000000 



1?4 
1?4 
1?? 

1?0 
12? 
3?4 
111 
1?4 
124 
1?7 
1?? 
1?4 
1?? 
1?? 



141 
1?3 
105 
11/ 
111 
1?3 
154 
1?3 
141 
1?? 
105 
1?3 
145 
101 
1?5 



160 
1?3 
1?2 
1?3 
10? 
123 
154 
123 
160 
111 
1.2 
1?5 
167 
115 
1L>3 



iWRirr SURSiSTf-M MKMORY COMMAND PACKtT 



r35Pi<? 



-< . ^10>£V///70 





.WORD 


100006 




.UORO 


T35BF? 




. WORD 







.WORD 


6. 


T55PK3; 








.UORD 


100005 


1 35Rti : 






T35WB: 


.WORD 


F RtB 




.WORD 





T36SZ: 


.WORD 







.tVtN 




T35bF2: 






135B50: 


.BYTF. 


10 


T35BS1: 


.BYTE 


200 


T35S2: 


.WORD 





T3553: 


.WORD 






-tVFN 
iTAPE MOTION PACKET COMMAND VALUES 



T55RN: 

T35WOR: 

T35C0N: 



T35CNr 
T35CNU 
T35DLY 



. WORD 
.WORD 
.WORD 
.WORD 



100205 
100605 
102205 
177777 



.WORD 
. WORD 
. WORD 



jLOCAl. TEXT MESSAGES FOR TEST 



;UfnrK SUft SYS MFM COMMAND. AND ACK 
; ADDRESS OF' SELECT BLOCK DATA 

;SI/E OF DATA PACKET 



REREAD COMMAND, AND ACK 
ADDRESS OF WRITE BUFFER 
SI/E OF- BUFFER (EXTENT) 



BSELO AREA 
BSELl AREA 
SEL ? AREA 
DATA AREA 



jREREAD DATA (NEXT) 
;REREAD DATA RETRY 
; WRITE CONT INDUS 
iEND OF DATA 



J TAPE TIMER COUNTER 
;TAPE TIMER COUNTER 
i DELAY COUNTER 



STORAGE AREA 
STORAGE AREA 



T35UNG 
T35RDF 
T35RRF^ 
T55SC: 
T35L0R 
T35UDF 
T35LOQ 
T35W0E 
T3580T 
T55TIM 
T35E0F 
T35TM: 
T35RWN 
I55RNC 
T35AM3 



.ASCIZ 'Tape Position Incorrect After REREAD Previous (OPP^l)' 

.ASCI2 ' TSSR Incorrect After READ DATA Command' 

.ASCTZ 'REREAD Previous (Space Reverse, Read Forward) Command Failed' 

.ASCIZ 'POSITION (.Space Command) Failed. TSSR Not Correct" 

.ASCIZ 'RIB NOT SET AFTER READ REVERSE INTO BOT' 

.ASCIZ 'TSSR Not Correct After Illegal Mo<*e Bits Set' 

.ASCIZ 'Illegal Mode Bits, Failed To Set ILC Bit In XSTO' 

.ASCIZ 'TSSR Hot Correct After WRITE DATA Command' 

.ASCIZ 'Tape Not At BOT After REWIND Command (BOT Not Set In XSTO^ 

.ASCIZ 'WRITE DATA RETRY' 'S Erase Tape Not Long Eno gh' 

.ASCIZ 'REREAD DATA OVER EOT GAVE NO TAPE STATUS ALFRT' 

.ASCIZ 'TSSR Not Correct After REREAD COMMAND Reject' 

.ASCIZ 'Rewind (POSITION) Command Not Accepted' 

.ASCIZ 'RAM Error, Correct Data Pattern Not In Ram' 

. ASCIZ 'TSSR In;t. Failed After REREAD COMMAND' 



TEST 1 HAUnWARl. Ft.SI 1-8 Tt ST MACRO MIPOO .VO MAR-d4 08;44 PAtih ,?5-100 
TEST 7; t:XTENDED MOO rEATUHt/j 



'dLQ 0194 



b07\ 

S074 
S07S 

SO 7 7 

S079 
I-.080 
^081 

5003 
S084 
S085 
5086 
S08/ 
5088 
5069 
5090 
5091 
509^^ 
5093 
5094 
5095 
5096 
5097 
5098 
5099 
5100 
5101 
5102 
51.05 
5104 
")105 
5106 
5107 
5108 
5109 
5110 
5111 
5112 
5115 
5114 
5115 
5116 
5117 
5118 
5119 
5120 
5121 
5122 
5123 
5124 
5125 
5126 
5127 



0/1065 
071140 

o;i23o 

071305 
071356 
071451 
071520 
071602 
0/1664 
071752 
072040 
072136 
072215 
072275 
072355 
072452 
0^2535 
072631 
072722 
073020 
0/3106 
07-5163 



073214 
073214 
073220 
073224 
0/3230 
0/3234 
073236 
073242 
07324C 
075250 
073254 
073256 
075262 
073266 
073274 
075276 
073302 
073304 

0/5506 
0/5506 

073312 
073316 
073322 
0/3326 
0/5330 
073334 



104 
124 
124 
103 
124 
127 
122 
122 
122 
122 
127 
124 
124 
124 
104 
124 
115 
111 
117 
124 
116 
105 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
012711 
012702 
012762 
005742 
022702 
001371 
000207 



012701 
012/21 
012721 
005021 
012/21 
005021 



162 
123 
123 
126 
123 
122 
145 
145 
145 
145 
122 
123 
125 
12? 
141 
125 
117 
156 
120 
123 
157 
170 



067420 
100004 
067430 

000012 
067442 

000024 

000000 

000030 
177777 

000000 



067550 
100006 
067550 

000006 



151 
123 
125 
103 
102 
lU 
141 
141 
163 
141 
111 
123 
123 
123 
164 
123 
124 
164 
115 
125 
040 
164 



T35aKL 
135WDD 
T35WDC 
T35VCK 
T358A: 
T35W5S 
T35L0N 
T35L0P 
T35PBP 
T35TRL 
T35NFr 
T35SCK 
T35TSA 
T35WRr 
T35DTA 
T35S5R 
T35MOT 
T35INT 
T 350PM 
T35RWE 
T35NIN 
TST35ID 



ASCIZ 
ASCIZ 
ASCIZ 
ASCI/ 
A5CIZ 
ASCIZ 
AfXTZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 

EVEN 



Drive 7 Select i ■: 



TSSP Not 
TSSR Not 
CVC Set, 
TSHA Not 



Correct 
Correct 

Didn' ' t 
Correct 



After 
Reset 
After 
WRITE SUBSYSTPM MEMORY 
Rending long Record f^a 
rTroding Long Record 
Residual Byte Count 
Reading Long Record 
WRITE DATA RETRY 
TSSR Not Correct 
TSSR Not Correct 
TSSR Not Correct 
Data 
TSSR 

MOT Bit cxsro) 

Interrupt Rece 

0PM Bit CXST2) 

TSSR Incorrect 

No Interrupt Detected 

ASCIZ 'Extended Mod* 



i led To Set "OKL " 
;*fter RER*iAO DATA 

REREAD 

VCK In 

REREAD 

Command 



SWB Bit Set' 



Ln TSSR' 

Command, 
DATA t^ommand' 
Message Buffer ' 
DATA Command' 
Not Accepted CRAM fieod) 



l^'d To Set RLL Bit In XSTO' 
Ealled To Set RLS Bit In XSTO' 
Incorrect After Short Record Read* 
railed To Give Tape Status Alert 
At First Record, Failed To Set RIB Bit XST3' 
After SPACE RECORDS Command' 
After WRITE DA I A RETRY. Into BQT' 
After WRITE CMA RETRY Command- 
Compare Error, Data Read » rom Tape Not Ecfjal To Written' 
Incorrect After WRITE MlSCtl I ANEOUS Command' 

Not Set During Rewind (Extended Features ModeV 
ved After REWIND Command (IE Bit Not Set) 
Not Set During Rewind (Extended FeotLjrcs Mode)* 
After Extended Features PFWINO Command' 
After REWIND IMMEDIATE' 
Functions' 



ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
WRITE SUBSYSTEM MEMORY COMMAND 



T35REST; 



067442 64$: 



T35RT2! 



SAVREG 

MOV «T35PACKET,R1 

MOV ^100004, CRD* 

MOV OT550ATA,(Rl)t 

ClR (RD* 

MOV ^10. ,(Rn» 

MOV *T358FR.(Rl)t 

CLR (RD* 

MOV 020. ,f Rl )* 

CLR (Rl)» 

MOV 00. (Rl) 

MOV 024. .R2 

MOV 0177777. T35BFR(P2) 

TST -(R2) 

CMP 00, n2 

BNE 64$ 

RTS PC 



SAVREG 

MOV 0T35PI<2,R1 

MOV 0100006, (RD* 

MOV OT35BF2,CRl)t 

CLR (RD* 

MCV 06. ,(Rl)f 

CLR (RD> 



SAVE THE REGISTERS 

START OF THE PACKET 

WRITE SUBSYSTEM MEM. WITH ACK . 

ADDRESS OF CHARAISTJCS DATA BLOCK 

EXTENDED ADDRESS 

SIZE OF DATA BLOCK IN BMES 

ADDRESS or MESSAGE BlfrFtR 

LENGTH OF MESSAGE BUTFER 

SELECT DRIVE ZERO 

hMiOER OF LOCATIONS TO BE CLEARED 

ALL ONES TO MESSAGE BUf-TER 

NEXT LOCATION 

AT END Of LOOP YET 

KEEP GOING UNTIL DONE 

RETURN 



SAVE THE REGISTERS 
START OF THE PACKET 
WRITE SUBSYSTEM MEM. WITH ACK, 
ADDRESS OF DATA BLOCK 
EXTENDED ADDRESS 
J SIZE OF DATA Bl OCK IN BYTES 



Nl.l) 

TF-sT I HARDWARL IKST 1 -ft ThST MACRU Ml^OO .rJO MAR 84 08:44 PAGE t^5 101 
TbST 7: t-XTKNOtO MODh KtATUPhS 



.FQ Oi^ii 



fnc'8 
5^ir*> 
rU30 
5151 
r^l32 

hij:s 

S136 
">137 
13138 

Sl^'^ 



r)i4i. 

514? 
5143 
S144 
514=*. 
1)146 
5347 
5148 
514'* 
51S0 
Sll?l 
51S^^ 
51!>'; 
51S4 
51SS 
51'.*) 
5l?i7 
5158 
5159 
5160 
5161 
5162 
5163 
5164 
5165 
5166 
5167 
5168 
5169 
5170 
5171 
51/? 
51/3 
51/4 

5175 
51 Vv 

51' 

51/8 

5179 

5180 

5181 

518a 



073336 
07334? 
0/3344 
0/3346 
073350 
073350 
073554 
073360 
07336? 
073364 
073366 
0/33/0 
0/337? 
07337? 
073372 



01? /Ol 
005021 
005011 
000207 



012701 
0050?1 
0050?1 
0050?1 
005011 
00020/ 



104401 



067550 



T35RT3: 



067540 



MOV 


VIT35BK2.R1 


Cl.R 


(RD* 


CLR 


CRD 


RT5 


PC 


5AVRuG 




MOV 


^?T35PK3.R1 


CLR 


(RD* 


CLR 


CRD* 


Cl.R 


CRD* 


CI R 


(.Rl^ 


RTS 


PC 


tNDTST 





POINT TO DATA StL ARhA 

RRTURN 

SAVE kl-"(;isrt RS 

fU.r UP POINTER ADOR( '.S 

COMMAND SPACt 

ADORt/;S OK DATA niOCK 

F.XTEiSDtD AODRt^^SS 

SIZE OK DATA TRANSFER BLOCK 

RETURN 



U10063: 



.SBTTL TEST 8: RECORD BUFFERING 



TRAP 



C5ETST 



THIS TEST VERIFIES THAT RECORD BUf-FERING. USED FOR WRITE DATA 
AND READ NEXT COMMANDS, OPERATES PROPERLY AND IS PROPERLY 
LONTROLLEO BY THE EXTENDED CHARACTERISTICS DATA WORD. IF THE 
M7196 CONTROLLER MODULE IS NOT ALREADY IN EXTENDED FEATURES MODE 
CAS CONTROLLED BY THE DIP SWITCH ON THE MODULE). IT IS PLACED 
INTO THAT MOC^. BY INVERTING THE SENSE OF THE SWITCH USING THE 
WRITE SUBSYSTEM MEMORY COMMAND. NOTE THAT RECORD BUFFERING HAS 
BEEN ENABLED IN PREVIOUS TESTS OF READ AND WRITE AND SO HAS BEEN 
PARTIALLY TESTED ALREADY. THIS TEST VERIFIES THAT BUFFERING IS 
ACTUALLY OPERATING. THE FOLLOWING SUBTESTS ARE PERFORMED; 

VERIFIES THAT NORMAL BUFFERING ON WRITE DATA COMMANDS OPERATES 
PROPERLY AT LOW TAPE SPEED. THE FOLLOWING SEQUENCE IS 
PERFORMED: 

1. THE TAPE IS REWOUND. 

2. BUFFERING IS DISABLED AND LOW TAPE SPEED IS SELECTED 
CVIA WRITE CHARACTERISTICS COMflAND). 

3. AN INITIAL RECORD IS WRITTEN ONTO THE TAPE IN ORDER TO 
MOVE THE TAPE OFF BOT . 

4. THE PROGRAM DELAYS FOR A TIME SUFFICIENT TO ALLOW THE 
TAPE TO REPOSITION AND COME TO REST. 

5. A WRITE DATA COMMAND. WITH A BYTE COUNT LESS THAN 3 . M< , 
IS ISSUED. AND THE PROGRAM COUNTS. IN A WAIT LOOP. THE 
TIME IT TAKES TO RECEIVE COMMAND TERMINATION. THIS 
SHOULD BE A RELATIVELY LONG TIME SINCE BUFFERING IS 
DISABLED. 

6. BUFFERING IS ENABLED. 

7. THE WRITE DATA COMMAND IS AGAIN ISSUED. WITH THE SAME 
BYTE COUNT AS THAT USED PREVIOUSLY. THE TIME TO 
COMPLETION IS AGAIN MEASURED. 



t : 



' ( 



rt'j: ^^: m CORD nu ^ rfMNi. 



'.Kj or/''. 



'•Ifl ■ 

' ■ ; *o 
' : *i 

VI / 



522fl 
5229 

V31 



075574 
0/5574 
075574 
075402 
075406 
075412 
075416 
73424 



bai'd 



7 34 50 
0754 50 
075450 
0754 50 
0754 52 
0754 56 
075442 
075446 
075454 
075460 
075464 
0/5466 
075466 
0/5472 
0/5474 
0/5500 
07 5502 
075506 
0/5510 
0/5514 
Q755i& 



012/5/ 
004/3/ 
OU^OO 
004/57 
012757 
00503V 



104402 
004757 
0O4757 
004757 
012757 
005057 
004757 
105426 

012727 
OOOOOO 
015727 
OOOOOO 
005567 
001575 
00556/ 
O0156/ 
005337 



006554 
017554 
10074 7 
0165/0 
000005 
075756 



1007/0 
101062 
101124 
176750 
075756 
016054 



000250 
002116 

177 7/2 
1 ' 7 /S6 
07S762 



8 



(U*r(«fD CA'-if, APf COMPARED, IT IS VFRIFIKU that r^f 
Tint MKASURtO fOH ] Mf NON fUJ* f f Rf U CA^f T^ MUCH i AWr,t P 
THAN THAT HFAMJRrO n)R THf Biff-KPhO CASF . 



fyFCURU i)t ^ Htn , AWL Hi 
THi RANht. 20 IHMfJiXiH 3 



f XCtPT fUH MLWINOIM: 



f'f Alt-D 



rOR VARIOUS 



ANlJ WR: r rNK> A 

okte: coijfiT', lu 



iHt TKST cuN:3i'.rs of rnt ^oi.luwin(j 2 '.lUBTf-.^TS 



BCiNTST 



00217. 



002210 



MOV 


♦fPRTl.tPRT 


JStt 


PC.KTOff 


MOv 


0TjT56ID.ro 


JSR 


PC.TSTSf Tt«P 


MOV 


•5.L00PCNT 


CLR 

* 


T56CNT 


TEOT a. SUBTEST 1 



>u 



T(5: : 
i PRIMARY ERROR Mt SnA^,f■ 
^ TURN orr KT 11 

iA'jCII MtS'iAGE TO IDFNTIFt ThS^ 
jDO INITIAL TE'jT SFTi>^ 
jPERFORM 5 ITERATIONS 
tCl.EAP TAPE RECORD COUNTER 



VERIFIES THAT A URITE DATA RE Rf COMMAND ISbUFO WMli fc 
THE TAPE IS POSITIONED AT BOT CAUSES Fl.»^CTlOW RtJEXf 
TERMINATION. WITH THE NON-EXECUTABLE FUNCTION (NF.F) 
ERROR BIT SET. 



075762 



T36L00P: 




BGN5UB 




JSR 


PC.T56REST 


JSR 


PC,T56RT2 


JSR 


PC. T56RT3 


MOV 


♦65000. .T56DUY 


ClR 


TS6CNT 


lOJl JSR 


PC.SOFXNIT 


BCS 


20» 


DF.lAy 


250 



J>>>>>>>k>>>> 



I SET 
I SET 
(SET 

iSET 



BEbIN SUBTEST 
Tfl.l: 

TRAP 



»>>i>i >»» 



COttlANO PACKET 
UP OTHER COMMAND 



CU15UB 



PACKET 
PACKFT 



DLC 



T56ULt 



UP OTHER COrfiANO 
UP OELAt COL»^TFR 

lCl EAR COUNIF.P 

lOO INITIALIZE ON CONTROLLER 

iBR IF INIT WAS OK 

iDELAi ABOUT .25 SEC 

MOV 
.WO«D 
MOV 
.WORD 
DfC 
BNt 
DFC 

iOUMP COUNTtR 



(PC 



0?50,(PC1 




. A 
22tPC^ 









S.^40 
S.I41 
*V4? 
S^4.^ 
Sc^44 
'•.^48 
S.?4<J 






S*?65 
^c»64 
S?6S 
S?69 



5.'80 



075524 
0-'5530 
0/5S5? 
07555** 
075554 
075556 
075540 
07554? 
75550 
075554 
75560 
755Oi? 
75566 
755/0 
0/55/0 
07357.- 
075574 
0755/6 
0/56O0 
075600 
07560? 
7 5606 
075610 
07561? 
075616 
075616 
0/5620 
7562^ 
075624 
75626 
075626 
075650 
075654 
075656 
07564? 
075644 
075646 
07565? 
75652 
75654 
075656 
0/5660 
07566? 
075662 
075664 
074672 
0/5700 
075/04 
075710 
07571? 
075/16 
075720 
075720 
07572? 
0/5724 
073726 



001 5 S6 
COS? 5? 
010001 

104455 
001441 
005646 
012114 
01575/ 
012704 
004/57 
105407 
0052 5 7 
010001 

104456 
O0144? 

00505? 
012114 

104406 
004757 
105407 
010004 
005257 

104456 
00144 5 

0/7171 
012120 

104406 

015701 
J10102 
05270? 
020102 
001406 
005257 

104456 
001444 
076665 
01 5554 

104406 
015757 

052757 
012704 
004757 
105407 
00525 7 
010001 

104456 
001445 
005052 
012114 



002214 



O0.n74 075650 20$: 

075610 
010/4? 

002214 



0110/4 



002214 



075640 
00OO02 

002214 



002174 
000050 
075610 
010742 

0022 U 



25$: 



50$: 



40$; 



756 50 
075630 



'O WMi H4 Ort:40 CAOt ,'5 105 



RN( 101 

INC f AI^ I (, 

^iOV ho, PI 

t.RRDt-' tRRNO . SF If RR , SK 1 MSCj 



'a:'^ (jV)? 



jHR. V CO'tNIf R Nnr [.'(JNh 

jCUNU NT^ Of TS',R f^'H,I^T[ U 
j^ATAl tRROH T'JSR WAS NOT ',k 









TRAP 


C$EPDf 








. W'>RO 


ho: 








.WORD 


^^ IF PR 








, WORD 


St- IM'/. 


MOV 


l*^irN.M6DSW 




I'lET \y^ DRIVE NUMBER 




MOV 


0T56PACKt T,R4 




jSijeRuUTlNf M-E05 PACKET ADORES 


S 


JSR 


PC.WRTCHR 




)I5SUf WRirt CHARACTERISnCO 




8CS 


25$ 




iBR. IF COMMAND IS5UFD OK 




INC 


FATrn, 




ifRROR COUNT 




MOV 


RO.Rl 




iSAVt CONTENTS 'Jf TS'iR 




ERRHRD 


ERRNO.WRTMbG, 


SFlMSb 


MRHE CHARACTERI5T1SC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 


c$erhrd 

RO? 

WRIMSL) 
Sf IMSf 


CKL OOP 






ll OOP IF VF.IFCTFD 

TRAP 


C$CLP1 


JSR 


PC. REWIND 




iCALl TAPF REWIND COMMANO 




BC5 


50$ 




J BR, IF NO PROei.EM 




MOV 


R0,R4 




r.F T ij»» REWIND PACKET ADDRESS 




INC 


FATFLG 




J ERROR COUNT 




ERRHRD 


ERRN0.T56RWN, 


PKTbSft 


iRtWIND NOT ACCEPTED 

TRAP 

.WO^tD 

.WORD 

.WORD 


CIERHRO 
805 

T56RWN 
PKTSSR 



CKIOOP 



MOV 


T56BFR*6,R1 


MOV 


R1»R2 


BIS 


^IT1,R2 


CMP 


Rl,R2 


BEQ 


40$ 


INC 


FATFLG 


ERRHRD 


ERRN0,T36B0T,EXPREC 



CKl OOP 



MOV 


UNITN.T56DSW 


BIS 


♦BIT5!BIT4. T 56DSW 


MOV 


•T5SPACKET,R4 


JSR 


PC.WRTCHR 


BCS 


50$ 


INC 


FATFLO 


MOV 


RO.Rl 


£RRHRO 


ERRNO.WRTHSGiiiFiMiiU 



a OOP IF SELECTED 

TRAP 

jPICK UP XSTO 

iSET UP EXPECTED 

J SET BOT BIT IN EXPECTED 

lOOES EXP - REC'O 

iBW, U tOUAl COK) 

I ERROR COUNT 

I TAPE NOT AT BOT AFTER RtWiND 

TRAV 
.WO^(D 
.W0«0 
.WORD 

TRAP 

iSf T UP DRIVE NUMBER 
t25-APR-e5 REV B - TURN ON TMf 
ibUBRCU^INF. NEEDS PACKET AODRE 
(ISSUE WKTTE CHARACIERISTIC'^ 
iBR. IF COMMAND ISSUED OK 

I ERROR COUNT 
(SAVE CONTENTS OF TSSR 
IWRITE CHARACTtRXSTlSiC FAILED 

TRAP 
.WORD 
. WORD 
»HUHD 



C$CLP1 



(LOOP IF SELECTED 



C»FRh«D 
804 
T56BGT 
EXPRFC 

C»CL PI 

BUFFERING 
5S 



C$FRHRD 
fl05 

WRTMsu 
5FXMliG 






1 ' , » ' 



%^'a hVfH 



S.^84 

S.^98 
'v*89 



S500 



^501 
S50P 
S505 
b504 
b505 
S506 
S50/ 

s^oe 

S50'> 
SilO 
^511 

^)313 



5515 

55W 
S51« 



OM750 
075/50 
O.'S/ic! 
0/3/40 
073746 
0/^7S4 
0/5 '60 
073/64 
0/3/70 
0/3/ '4 
074000 
0/400C' 
0/4004 
0/4010 
0/4010 
0/40i? 
0/4014 
0/4016 
/40*.*0 
740^0 
0740^2 
0/4030 
0/4050 
0/4034 
0/4036 
0/4042 
074044 
0/4050 
074052 
074056 
074OS0 
0/4064 
074066 
0/40 74 
074102 
0/4106 
0/411^ 
0/4120 
0/4124 
74 1 30 
0/4134 
074136 
074142 
074142 
0/4146 
074150 
0/4154 
0/4i:>6 
074162 
0/4164 
0/4170 
074172 
0/4176 
0/4200 
74204 
0/4206 
O74«?10 



•0$! 



10440*. 

0K'/3/ 005 /.'O 

015/37 003116 

012/3/ 140005 

012704 075 730 

010465 000000 

004737 016350 

016501 000002 

012/<).» OOO.'OO 
020102 
001406 

00S237 002214 



10^4'^ 6 
001446 
00510/ 
012126 

104406 

012737 

012727 
000000 
01372/ 
000000 
005567 
0015/5 
00556 7 
001567 
005337 
001561 
012757 
012737 
012704 
005057 
012757 
010465 
016501 
052701 
001021 
005237 

012727 
000000 

015727 

oooooo 

005567 
001375 

005567 
0015*'/ 
0053^, 
001552 
012702 
020102 
001406 
005257 



0/:. .".6 

O/S/3.' 
0/5/50 



000005 075762 
000001 

002116 

177 7 72 

177 756 

075 762 

006642 0/5 736 

140O05 075730 

075750 

075756 

001750 075762 

OOOOOO 

000002 

000200 

075756 

OOOOOl 

002116 

177772 

17/756 

075 762 

000200 

002214 



Got: 
70$! 



80$: 



CKl UUP 

MCV 

lijv 

MOV 
MOV 

MOV 
J'.jR 
MOV 
MUV 
CMP 
HhQ 
INC 
tHRHRD 



CKl OOP 

MOV 
DELAt 



DEC 
BNb 
MOV 
MOV 
MOV 
CLR 
MOV 
MOV 
MOV 
BIT 
BNC 
INC 
DELAY 



^2000. . T^6S/ 
FMlt . T56WB 
0140005, T36PK5 

0T36PK5,W4 
R4. TSDDCRS ' 
PC.WAirf 

TSSRC(;5),R1 

0SGH.R2 
HI.R2 
60 1 

rAinc. 

tRRN0,WRTKHR»PI<TS5R 



d05. .T36DLY 
I 



T56DL.Y 

70 » 

*3490. .T36SZ 

0140005, T56PK3 

dT56PK3,R4 

T56CNT 

• 1000. ,I56DL Y 

R4.TSDefR5) 

TSSRCR5).R1 

•SSR.Rl 

901 

T56CNT 

1 



90* : 



DEC 


T56DI t 


BNE 


801 


MOV 


♦SSR,R2 


CMP 


RI.R2 


BEQ 


100 » 


INC 


F'ATFl.li 



\\ nop If %f I EC TED 

TRAP 
(SET \P RECORD M/E 
lAODPtSS Of URTTE tJUEtR 
(WRITE OATA,ACK.CVl: -1 COMMAND 
;S1T IJP R4 UITH PACKET ADDRE5 
; I;y-.Ut COMMAND 

(WAIT fn« ssR TO '.e:t 

(GET rssfi CONTENTS 

I SET UP EXPECTED 

(ARE THEt EQUAl 

»RR. IE OK 

jERROR COUNT 

;T55R INCORRECT AETER READ DA 

TRAP 
.WORD 
.WORD 
.WORD 

jLOOP IE SELECVrO 

TRAP 

t25-APR.83 REV ['. ■ Dfc L A i EOR 

l25-APR-a3 REV b DELAY ROUT 

MOV 
.WORD 
MOV 
.WORD 
DEC 
BNE 
DEC 
BNE 

(BU^/^ COUNTER DOWN 

iBR. IF MORE DfcLAr TO GO 

iSCT SIZE OF TRANSFER 

iWRITE DATA.ACK,CVC-1 COMMAND 

iSET UP 04 WITH PACKET ADORE '> 

iCLEAR COUNTER 

I SET DROP DEAD COUNTER VALLf 

t ISSUE COMMAND 

;GET TS5R CONTENTS 

jCMtCK rOR SSR SET 

jBR. IF 5SR IS SET 



:j':lpi 



TA 

CJERHRD 
806 

WRTERR 
PKT^>SW 

CJCL.Pl 
TAPE TU STOP 
liME CALL 

• l.CfCt* 



LiDL T.^PO* 



-6CPC) 

. 4 

'22CPC1 

. -20 



S 



jBUMP CYCLE COUNTER 




iCUT NUMBER OF LOOPS DOWN 




MOV 


01, (PC** 


.WORD 





MOV 


L $Dl 1 ,;PC^^* 


.WORD 





DEC 


-6CPC") 


BNE 


, 4 


DEC 


22^ PC) 


BNE 


. 20 


lBL«^ DROP DEAD COUNTER 




jBR. IF THERE IS STILL TIME 




(SET UP EXPECTED 




J ARE THt» EQUAL 




iHR. IK OK 




I ERROR ZOXM^ 





1 1 



li5?S 



I..V-4 
•.554 



^556 

S55/ 
^558 
S55'> 
S540 
5341 
^54? 
5.M5 
S544 
lj54b 
S^46 
5547 



5549 
5 5SO 
5551 
555? 
5555 
5357 



5558 

5 559 
5560 
5561 
5362 



0/4.M4 
0/4^14 

0/4. U6 
0/4. 'c'O 

07A??A 
074fV4 
74t??6 
074^54 
7404.^ 
074^46 

o;4?5? 

74254 
74260 
74262 
74262 
74264 
0/4266 
074270 
74272 
742 72 
74274 
74 50? 
074510 
074514 
74520 
074 526 
74552 
074556 
074542 
074 544 
74550 
074 550 
074 554 
74 5S6 
07456? 
074564 
074570 
074572 
745 76 
0/4400 
074404 
074406 
074412 
074414 
074416 
74422 
74422 
074424 
74426 
744 50 
74452 
074452 
074454 
074440 
074444 
074446 



1044"^^ 

00144/ 
76615 
012126 

104406 
015757 
052 75/ 
012/04 
004 75/ 
10540/ 
00525 7 
010001 

104456 
001450 
005052 
012114 

104406 
012757 
012757 
012704 
005057 
012757 
010165 
016501 
052 701 
001021 
005257 

012727 
UOOOO^ 
015727 
OOOOCO 
005567 
0O1575 
00556 7 
001567 
005557 
001552 
012 702 
020102 
001406 
005257 

IC4456 
001451 
005107 
012126 

104406 
013701 

013/02 
020102 
00340b 



0021 .'4 
0000 10 

0/S610 
010/42 

002214 



0O6642 
140005 
075/50 
075760 
001/50 
OOOOOO 
0OOO02 
0O0200 

075760 

OOOOOl 

002116 

177772 

177/56 

075762 

000200 

002214 



0/5 756 
075760 



100* 



t RHHHl) F.RRNO , T ^ftWOe^. . PK T SSR 



CKLDOP 



o/Sf.50 
75630 



llO*: CKl OOP 



75 756 
075750 



075762 



120 J; 



MOV 


d5490. .T56S/ 


MOV 


0140005. T»6PK 5 


MOV 


0T56PK5,R4 


CLR 


T56CNU 


MOV 


01000. ,T36DL Y 


MOV 


R4,TGDeCH51 


MOV 


(SSRCR5).R1 


HIT 


OSSR.Rl 


BNf 


1501 


INC 


T56CNU 


DELAY 


1 



SFQ oyrt 



150»: 



140» 



CKL OOP 



INCORRKCT AF TF.R 



I OOP D sn f CTtO 



RbAI) O'^IA 
Tf/AP 
.WORD 
. WORD 
.WORD 

TRAP 



MUV 


LINITN, r36D-,W 


i 


BIS 


06115, T5M)SU 


; 


MUV 


0T56PACKtT.R4 


1 


JSH 


PC.WRTCHR 


t 


BCS 


not 


I 


INC 


FATFK, 




MOV 


RO.Rl 


t 


tRRHRD 


tRRNO.WRTMSG.SriMSG 


t 



CiKRHRD 
807 
f 5f;U[;F 
PKT^OR 

C<Cl PI 



'A r UP DRIVE NltlRFR 

25 APR 85 REV B TURN OFF D'^'^f-.RING 

SUBRQUriNF mhW^ PACKfT 

IS5UF WRITt CHARACTERISTICS 

HR. If CC}MMA^C IS5UfD OK 

jtRROR COUNT 
SAVE CONTENTS QF :SSR 
WRITE CHARACTERISTISC 



il OOP IF" 'iFLFCTFn 



FAII ED 
TRAP 
.WORD 
.WORD 
.WORD 

TRAP 

SET SIZE or TRANSFER 

WRITE DATA.ACK.CVC-l COMMAND 

SF T UP R^ WITH PACKET ADDHESb 

CLEAR COUNTER 

SEV DROP DEAD COUNTER VALUE 

ISSUE COflMAND 

GET T^ SR CONTENTS 

CHECK ^f»R S5R SET 

BR. IF S' i7 IS SET 
COUNTER 
0*^ LOOPS DOWN 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

Df C 

BNf 



OERHRO 
808 

WRTMStj 
SF IMsr 

CJCLPl 



BLtlP Ci LE 
CUT NUMBER 



oi.cpc:)* 



L JOl r,(PC"'» 



■6fPCl 

. 4 

-20 



DEC 


T56DI Y 




(BUMP OROP DEAD COUNTFR 


BNE 


120$ 




iBR. IK THERE IS STILL TIME 


MUV 


0S^.R.R2 




iSfcT UP EXPECTED 


CMP 


RI.R2 




jARE THEY EQUAL 


BEQ 


140i 




iBR. IF OK 


INC 


MTFLG 




i ERROR COUNT 


ERRHRO 


ERRNO.WRTERR.PJ 


'T5SR 


iTSSR INCORRECT AFTER WRITE DATA 

TRAP OERHRD 
.WORD 809 
.WORD WRTERR 

.WORD PKTSSR 



iLOOP IF SELECTED 



TRAP 



MOV 


T56CNT,Rl 


MOV 


T56CNU.R2 


CMP 


RI.R2 


BLE 


300 i 



{Gt T FIRST COUNTFR 

(GE T SECOND COLINTER 

1 25 -APR -85 REV B COMPARt 

iOR, IK VALUER ARC CORRECT 



CJCLPl 



EM 
vOK) 



TIM 1 HARnu*\Rt TKSI I !\ TC*;! MACRU Mlc^OO /O M'\R HA OH:40 PAlih <»^) 10b 



SFQ Ot^OO 






S5b9 



r>5/0 
S.Wi 

«~>:^.'^ 

S5ti4 

S588 

S589 

'j591 

S5S5 
')5'*4 

S,f48 
*.. 599 
S400 
MOl 
S40(^ 
MO 5 
S404 
MOS 
S40<j 
MO 7 
5408 
5409 
MIO 
Mil 
541? 
5415 
5414 
5415 



074450 
074454 
074454 
074456 
0/4460 
O ;44 f>r' 
0744b4 
74464 
0/4466 
74466 
74466 
744 70 
744 7fi 
74500 
074504 



005^5/ 00^(?14 

1044tj6 
0014S.* 
75 764 
015554 

104406 



5005; 



104405 
02572 7 
10 '.40,* 
004 737 



00i.vn4 000017 
017(^62 



999 $ : 



INC f ATM (; 

IRWHRD t.HHNU.T36NAS,t:XPRtC 



CKl OOP 
ENDSLW 



CHP KATFL(),i^l5 

HI 9991 

JSR PC.CKDRQP 



(tRRUR CCJWNi 
jTAPb. NOT 



jlUOP IF 



AT CORReCT ^j 


PttU 






TRAP 


CtFRHPD 




. WORD 


ftlG 




.WORD 


r56MA'3 




. WORD 


FXPRFC 


StLtCTRD 








TRAP 


CSCLPl 


1.10071 


. 






TRAP 


CSf^jUB 



) I'. f.HROR COUNT AT .^S 
iBR, IF I E.^>S THAN < ^ 
;TRr ru DROP THE IJNIT 



TtbT 8. sijbte:st ? 



THIS TEST VERIFIES THAT RFCORO BUFFERING, USED FC)R WRITE DA^A 
ANO READ NEXT COMMANOS , OPERATES PROPERLl ANO IS PROPERLY 
CONTROLLED BY THE EXTENDED CHARACTERISTICS DATA WORD. IF THf 
M7196 CONTROLLER MODULE IS NOT ALREADY IN EXTENDED FEATURES MOOF 
(AS CONTROLLED BY THE DIP SWITCH ON THE MOOULE), IT IS PLACED 
INTO THAT MODE BY INVERTING THE SENSE OF THE nwi fCH USING THF 
WRITE SUBSYSTEM MEMORY COMMAND. NOTE THAT RECORD BUFFERING HAS 
BEEN ENABLED IN PREVIOUS TESTS OF RFAD ANO WRITE ANO SO HAS BEEN 
PARTIALLY TESTED ALREADY. THIS TEST VERIFIES THAT BUFFERING TS 
ACTUALLY OPERATING. THE FOLLOWING SUBTESTS ARE PERFORMED: 

VERIFIES THAT NORMAL BUFFERING ON WRITE DATA COMMANDS OPERATFS 
PROPERLY AT LOW TAPE SPEFD. THE f-'OLLOWlNG SEQUENCE IS 
PERFORMED: 

1. THE TAPE IS REWOUND. 

i?. BUFFERING IS DISABLFD ANO LOW TAPt SPEED IS SELECTED 
(VIA WRITE CHARACTERISTICS COr-tlANO). 

^. AN INITIAL RECORD IS WRITTEN ONTO THE TAPE IN ORDER TO 
MOVE ThE TAPE OFF BOT. 

4. THE PROGRAM DELAYS FOR A TIME SUFFICIENT TO ALLOW THE 
TAPE TO REPOSITION ANO COME TO REST. 

5. A WRITE DATA COMMAND. WITH A BYTE COUNT LESS THAN 5.5K, 
IS ISSUED. ANO THE PROGRAM COUNTS. IN A WAIT LOOP. THE 
TIME IT TAKES TO RECEIVE COMMAND TERMINATION. THI^. 
SH(XJLD BE A RELATIVELY LONG TIME SINCE BLf"F-£RlNG lb 
DISABLED. 

6. BUFFfRING IS ENABLED. 

7. THE WRITE DATA COMMAND IS AGAIN ISSUED. WITH XHi SAME 
BYTF COvJNT AS THAT USED PREVIOUSLT. THE TIME TO 
COMPLLTION 15 AGAIN MEASURED. 



* 1 



TF-sr 1 MAHOwARi m;i i h tl^t macro m1(?uo 

ThST 8: RKCURD BUKKHRING 



S4I ^ 
S4UH 
■S41W 

S4.'4 
S4.,»S 

S4?; 

n4r8 

S4P9 



JO MAR 84 OH: 44 PAGt .:'*j 10/ 



M50 
54 51 
S4 5? 
S455 
S4 54 
S4 5S 
S456 
■►43V 



S4.58 
M59 
S440 
S444 
S445 



*^>446 
S447 
M48 
S449 
r>450 
MSI 
S4S*^ 
S4b6 



54^^ 

S458 
545^ 



74S04 
074S04 
74504 
74506 
07451? 
074516 
074522 
074550 
0/4554 
74540 
074S42 
7454? 
0/4546 
745S0 
74554 
74556 
074562 
074564 
074570 
07457? 
074576 
0/4600 
074604 
074606 
74606 
074610 
074612 
074614 
074616 
74624 
074652 
74656 
074642 
074644 
074650 
0/465? 
7465? 
74654 
74656 
74660 
0/4662 
074662 
74664 
074670 



104402 
004757 
004757 
004757 
012757 
005057 
004 75 7 
105426 

012727 
OOOOOO 
015727 
OOOOOO 
00556 7 
001575 
005567 
001567 
C05557 
001556 
005257 
OlOOOl 

104455 
001455 
005646 
012114 
015757 
052757 
012704 
004757 
105407 
005257 
OlOOOl 

1044S6 
001454 
005052 
012114 

104406 
004 7 5 7 
105407 



I - 



100 7 70 

101062 

101124 

176 750 075762 

075756 

016054 lOJ 



000250 
002116 

177772 
177756 
075 762 
002214 



002174 
000040 
075610 
010 742 

002214 



BliNSUB 



JSR 
JSR 
J5R 
MO^ 
CIR 
JSR 
HCC 
DELAY 



75650 
075650 



201: 



25* 



011074 



[)tC 
DNE 
INC 
MOV 
tRROK 



MOV 
BIS 
MOV 
JSR 
BC5 
INC 
MOV 
fcRRHRD 



CKl f)OP 

JiiR 
BCb 



'JO 0201 



TIME'j MtA^URED 



8. THE: COMPl hTION 
BltfTFRRD CASFS 

TlMt Mf.ASURtn f OR THK NON BtJf^tRFD CA-^^t 
THAN THAT MtAsuRtD f'OH THt BUf FKf^f- D CAOE 



ARE-" COMPARtD 



KOR THE. NON fJl>>lRKU ANfJ 
1 T IS VhRiF ILD THAI THt. 
IS MUCH I ARGfR 



THE PR( 
R[ CORD 



vious srr 

Of K BUT . 






\r/SAV] rUR RtWINOINt, 
RfPtATe:D fOR VARIOUIj 



THt-: RANbt 20 THROUGH 5,bl<. 



AND WRIT IN(. A 
UYTF CO'JNT.. IN 



PC,T56RtST 

PC.T56RT? 

PC.T56RT5 

^5000. .T56DLY 

T56CNT 

PC.50F1N1T 

201 



T 5601 r 

lOi 

F ATFLC; 

RO.Rl 

tRRNO.SKltRR.SFIMSG 



UNITN»T56DSU 

oeiT5. T560SW 

<>T56PACKt T.R4 

PC.WRTCHR 

25$ 

f ATFl f, 

RO.Rl 

ERRNO , WRTMSG , SF 1M5G 



>>>>>>>>>^>> 



SET 



BEGIN 
T8., 



SUBTEST »>>> 



TRAP 



I 

I 5f T 



jSET 
iSET 



PACKET 
PACKET 



COMMAND PACKET 

UP OTHtR COMMAND 

UP OTHtR COMMAND 

UP DELAY COUNTER 
I CLEAR COUNTER 

iDO INITIALIZE ON CONTROLLER 
:nR IE INIT WAS OK 
jUfcLAY ABOUT .25 SEC 



cjosije 



MOV 


02^0 APO* 


.WORD 





MOV 


LJDLY.CPO* 


.WORD 





DEC 


-6(PC'' 


BNE 


. 4 


DEC 


22(PC) 


BNE 


.-20 



;BL^1P COUNTER 

jBR. IE COUNTER NOT DONE 

lERROR COUNT 
;C0NTENT5 OF TS5R REGISTER 
iFATAl. ERROR TSSR WAS NOT OK 

TRAP C$ 
.WORD ai 
. WORD SE 
WORD SF 
:SET U* DRIVE NUMBER 
ilURN <N HIGH SPEED 
iSUeHiKUINE NEEDS PACKET ADDRESS 
J ISSUE WRITE CHARACTERISTICS 
jBR, IF COMMAND ISSijeD OK 
i ERROR COUNT 



I- RDF 
I 

lERR 
IMSG 



PC. REWIND 
30* 



jSAVt CONTENTS Of TSSR 
iWRITE CHARACTERISTISC EAILED 

TRAP 

.WORD 
.WORD 
.WORD 

tl OOP I^ SELECTFD 

TRAP 

iCAiL TAPE REWIND COMMAND 

{BR, IF NO PROBLEM 



CiERHRD 

812 
WR 

S^ 



:TMSG 
IMSG 



CSCLPl 



^es' 1 HAROWfUu rr'.i i m tist mac«u t^Xc'OQ 



M65 



S4f>6 

')46/ 
S4^>ft 

S464 
'.4 70 

:>4a 

S4 ^c* 
S4V6 



S477 

S4/8 
S4 /') 
S480 
S481 
S4tt? 
r>485 
^487 
S48e 



439 



j> 



^_>44i 
^44<? 

M94 

M% 

S49; 
5498 
S499 
5500 
bb04 



^505 

5^06 
5!>07 



0M67.^ 
OM6 74 
74 700 
074 700 
74 70.' 
074 704 
0/4 706 
074710 
074710 
74 710 
07*716 
74 7;'0 
0747^4 
74726 
74 750 
74 754 
74 754 
74 756 
074740 
74 742 
074 744 
74 744 
74746 
74 7S4 
074 762 
074 766 
74 7 72 
0747 74 
075000 
075002 
075002 
75OO4 
0/bOOC 
75010 
75O1J 
075012 
0/5014 
75022 
0/5050 
075056 
075O42 
075O46 
075052 
075056 
75062 
75064 
75066 
750 72 
0750 72 
750 74 
075076 
0/5100 
75102 
U75102 
0/5104 
075112 
075112 



010004 
00S25 7 

104456 
001455 
07/171 
012126 

104406 
015701 
010102 
052/02 
020102 
001406 
00525 7 

104456 
001456 
076665 
015554 

104406 
015757 
052757 
012704 
004 75 7 
105407 
005257 
010001 

104456 

>01457 

005052 

012114 

104406 
012757 
015757 
012757 
012/04 
010465 
0O4757 
016501 
012702 
020102 
001406 
005257 

104456 
001460 
005107 
012126 

104406 
0127.V7 



002214 



075640 
000002 

002214 



0021/4 
000050 
075610 
010742 

002214 



005/20 
005116 
140005 
75/50 
000000 
01655C 
000002 
000200 



002214 



30J 



40$ 



075650 
075650 



50$ 



075756 
075752 
075V30 



000005 075762 



012727 000001 



60$ 



VO* 



1-f : ^. 

■0 ri;\u 84 08 :4a PA(ir 25 lOH 



liUV R0.P4 

INC ^ ATF l.G 

f RRHRU t:RRNU,T56RWN,PKTS5H 



CKl.OOP 




MOV 


r56Hf RW..R1 


MOV 


H1,R2 


BIS 


^flITl.R2 


CMP 


R1.R2 


BFQ 


40$ 


INC 


f ATric* 


IRRHRO 


KRRNU,T56B0T.EXPREC 



CKl.OOP 

MOV 
BIS 
MOV 
JliR 
BCS 
INC 
MOV 
tRRHRD 



CKLOOP 

MOV 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
Bfc'Q 
INC 
PRRHRD 



CKl OOP 

MOV 
DELAY 



UN1TN.T56DSU 

*eiT5!BlT4, r?ousw 

tfT56PACKeT,R4 

PC.WRTCHR 

50$ 

^ATFLG 

RO.Rl 

ERRNO.WRTMSCi.bFlMbG 



02000. . r56S/ 

KREt,T56We 

0140005, T56PK5 

0T36PK5.R4 

R4.TSDB(R5) 

PCUAITF 

■!SSR(R5).R1 

05SR,R2 

R1.R2 

60$ 

F ATFLG 

ERRNO.WRTtRR.PKTSSH 



005. ,T360L> 

1 



':iEQ 0202 



M r UP rvfUIND f ACKf T 


AUDRF''.'; 




jtRHOH C:iUNI 






RhWIND NOT ACCF-PTFD 








TRAP 


CiM^HRD 




, WORD 


815 




.WURO 


T ^6Hwr^ 




. WORn 


PKTSSR 


LOOP T^ SFI FCTFO 








TRAP 


C$Cl-Pl 


PICK UP XSTO 






Sf T UP ( XPf CTf D 






HFT BOT BIT IN FXPECTFO 




OOFS tXP • RFC D 






BR. U ( QUAl CUK) 






;tRROR COUNT 






TAPE NOT AT BOT APTER 


RtWiNO 






TRAP 


C$tRHfm 




.WORD 


814 




. UORD 


T56BfJT 




.WORD 


EXPRFC 


LOOP IF SFI FCTFO 








TRAP 


C$CLP1 


SH UP DRIVE NUMBFR 






25 APR 63 REV B TURN ON THE 


BUFFERING 


SUBROUTINE NfEDS PACKET ADORE' 


aS 



; 
1 

J BR, IF 

1 



issue WRITE CHARACTERISTICS 



COMMAND ISSUED 
; ERROR COUNT 
SAVE CONTENTS OF T53R 
WRITE CHARACTERI5TISC 



OK 



jLOOP If SELECTED 



FAILED 




TRAP 


C$ERHRD 


.WORD 


815 


.WORD 


WRTMSG 


.WORD 


SFIMSt, 



T'lAP 



SET UP RECORD SIZE 

ADDRESS OF WRITE P.UfrFtR 

WRITE DATA,ACK.CVC-1 CGi"^^^40 

SET Uf R4 WITH P *'*KET ADDRESS 

ISSUE COMMAND 

WAIT FOR SSR TO SET 

GET T5SH CONTENTS 

UP EXPECTED 

THEt tCHJAL 

IF OK 

I ERROR COUNT 
INCORRECT AFTER READ DATA 



r$cLPi 



SET 

ARE 
BR. 



TSSR 





TRAP 


C$ERHRD 




.WORD 


816 




.WORD 


WRTERR 




.WORD 


PKTSSR 


LOOP IF SELECTED 








TRAP 


CiCi PI 


25 APR I 3 REV B - 


OFLAi roR 1 


rAPF TO STOP 


25 -APR -6 3 REV • 


OEuAi ROUTINE CAl i 




MOV 


Ol.(PC)» 



TM.r 1 HAfiDwARi: It SI 1 rt TbST MACRO MU'OO .'0 M'\R 84 Ort;44 P/U,F <^'". lO^J 



SF:j Oc^O'^ 



!v.08 

SSI 5 

5SM 
SSIS 

■j'> 1 7 
bbl8 
SS14 

sbao 






SS2L 

SS^4 
5S?* 

ss;5o 



5S31 

SS5? 
SS53 
SS54 
5535 
SS56 
S537 
5S41 
SS4i? 



5545 

5544 
i>545 



Of'511fo 
075120 
0/'51?4 
0/5126 
0/5152 
0/5.34 
075140 

075i^,^ 
0/5 ISC 
07Si:i^ 

O/L^liO 
75174 
075202 
075206 
075212 
0/5216 
0/5220 
/5224 
75224 
075230 
0/5232 
/5256 
0/5240 
75244 
075246 
75252 
75254 
075260 
/526;.' 
075266 
0752/0 
075272 
/52 /6 
075276 
075500 
0/5502 
0/5504 
75506 
75306 
075510 
0/5516 
075524 
075550 
075534 
07553<) 
075542 
075544 
07554* 
7534 5 
75550 
0/5552 
0/555' 
0755^*4 
0/5.'56 
0753b4 



000000 
015/27 
000000 
00556/ 
0015 75 
005567 
001367 
005337 
001361 
C12737 
012737 
012/04 
005057 
012737 
010465 
016501 
03^701 
001021 
005237 

012/27 
000000 
013727 
000000 
005567 
001375 
00536 7 
001567 
005557 
001552 
012/02 
020102 
001406 
005237 

104456 
001461 
076615 
012126 

104406 
015757 
052 737 
012704 
004757 
103407 
00525 7 
OlOOOl 

104456 
001462 
005052 
012114 

l(;U(^6 

0X2737 



0021 It* 

1/7 772 

1 //7S6 

075/62 

006642 0/5/36 

140005 075730 

075/30 

0/5/56 

001/5C 075762 

000000 

000002 

000200 

075756 

000001 

002116 

177772 
177756 
075 762 
000200 

002214 



80$: 



DtC 


136UI y 


BNt: 


70$ 


MOV 


034^0. . T36S/ 


MUV 


^140005. T56PI<^ 


MOV 


«T36PK3,R4 


CI R 


T36CNT 


MOV 


OlOCO. ,T56Dl.Y 


MOV 


R4.TSDB(R5) 


MOV 


TSSRCW5),R1 


BII 


«55R,R1 


BNE 


90 i 


INC 


TSbCNl 


Ohl.AY 


1 



90$: 



DEC 


T360LY 


BNt 


80$ 


MOV 


«SSR,R2 


CMf^ 


R1.R2 


HEQ 


lOOl 


INC 


FATFLG 


ERRHRO 


ERRNO.T 



100$ 



CKLOOP 



O02174 075650 
000010 075630 
075610 
010/42 

002214 



110$ 



006^42 0/5/36 
140005 0/5/30 



CKLOOP 

MOV 
MOV 



55 



R 



MOV 


UN1TN,T560SU 


BIS 


0Bir3, 156DSU 


MOV 


<»T56PACKEr,R4 


JSR 


PC.WRTCHR 


BC5 


HOI 


INC 


FATrLG 


MOV 


RO.Rl 


ERRHRD 


ERRNO,URTMSG,SF"IMBG 



. WORf) 





M(JV 


1 $0. 1 / 


. WORD 





DEC 


6(f'C) 


Bf4t 


. A 


Df " 


•22(PC; 


HNE 


. -20 


CO 




CUMMANO 




ADORt'-S 





PC 



VALUE 



B'JMP COUNTER DOWN 

BR, U MORE DELAY TO 

5H 5I/F or TRANSEER 

WRITE DATA.ACK.CVC-l 

SET UP R4 WITH PACKF T 

CLEAR COUNTER 

SET DROP DEAD COUNlER 

issue COMMAND 

Gei TSSR CONTENTS 

CHECK KOR SSR SET 

BR. If SSR IS SET 

BUMP CYCie COUNTtR 

CUT NUMBER OF LOOPS DOWN 

MOV 
.WORD 
MOV 
.WORD 
DEC 
BNE 
DEC 
BNE 
tBUMP DROP DEAD COUNTER 
[BR. If THERE IS STILL TIME 
iSET \^ EXPECTED 
(ARE THEt EQUAL 
iBR. IE OK 

1 ERROR COLff^T 
tTSSR INCORRECT AFTER READ DATA 

TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



^l.CPC )* 



I $0i r.CPcn 



-6CPC) 

. 4 

-22'. PC) 

.-20 



(LOOP IE SELECTED 



CSFRHRO 
81/ 
I36WDe 
PKTSSR 

C$Cl PI 



O34'»0. . r .^t'S/ 
0140005, T36P'<3 



i SET UP DRIVE NUMBER 

I25-APR 83 REV B - TURN OTF BUfFERlNU 

tSUBHOUTINE NEEDS PACKET ADDRESS 

(ISSUE WRITE CHARACTERISTICS 

jBR, IF COMMAND ISSUED OK 
i ERROR COUNT 

iSAVE CONTENTS OF TSSR 

tWRITE CHARACTERISTISC FAILED 

TRAP CURHRO 
.WORD 818 
.WORD WRTMS'J 
.WORD ';> TMSt; 

TRAP C$CIP1 
{St T SI/E OF TRANSFER 
iWRITE DATA.ACK.CVC-l COMMAND 



(LOOP IF SELECTED 



Tt ST 1 HAHDWARf IKSr 1 H Tt^jT MACRO Mlc?0O JOMan-84 0^:44 PAtih i^fs 110 
TtST 8; nrCORD BUKFfUNG 



ShQ 0^04 



D546 
5^4/ 
S548 
5549 

ssso 

SSSl 

!>55r* 



55S5 
5556 
55S ; 
55Sfl 
5559 
5560 
5564 



5565 

5566 
556 7 
5568 
5569 
5570 
5574 



5575 
5576 



55/7 
55 78 
55 79 
5580 
5581 
558? 
5585 
5584 
5585 
5586 
558/ 
5588 



0/557c: 
755 76 
0;540c^ 
075410 
075414 
75420 
754J4 
75426 
7545^ 
075452 
075456 
75440 
75444 
075446 
07545? 
075454 
0/5460 
07546? 
075466 
075470 
075474 
754 76 
075500 
075504 
075504 
75506 
75510 
075512 
C 75514 
075514 
075516 
075522 
75526 
0/5530 
75552 
0/5536 
075556 
0/5540 
075542 
0/5544 
75546 
075546 
0/5550 
75550 
0/5550 
075552 
0/5560 
075562 
075566 



075566 
075572 
075574 
75600 
075600 



012/04 
00505 7 
012/57 
010465 
016501 
052701 
001021 
005257 

012727 
000000 
015727 
000000 
005367 
001375 
005367 
001367 
005337 
001352 
012702 
020102 
001406 
005237 

104456 
001463 
005107 
012126 

104406 
015/01 
015702 
020102 
005406 
005237 

104456 
001464 
075764 

015554 

104406 



104403 
025/2 7 
105402 
004737 



004 / 5 7 
105002 
000137 



75 750 

0/5/60 

001750 075762 

000000 

000002 

000200 

075760 

000001 

002116 

177 7 72 

177756 

075762 

000200 

002214 



75/56 
075760 



002214 



120$ 



MUV 


i>r36Pi<5,R4 


CI H 


T56CNU 


MUV 


V?1000. , I56!)l 


MJV 


R4,TSDHCR5) 


huv 


T55R(R5).R1 


RT! 


tfSSR.Rl 


HNf. 


150t 


INC 


1 36CNU 


DtLAY 


I 



150$: 



Dt C 


T360LY 


BNfc 


120J 


MOV 


05SR,H2 


CMP 


R1.R2 


BtU 


140i 


INC 


FATFLG 


ERRHRD 


ERRNO.WRTt'RR.PKTSSR 



140$: CKLUOP 

MOV 
MOV 
CMP 
BLL 
INC 
ERRHRD 



300*: 



002214 000017 
017262 

016556 
073430 



999$ ; 



163$ 



CKl OOP 
ENDSUB 



CMP 
BLO 
JSR 



JSR 
BCC 

JMP 

EXIT 



T36CNT.R1 

T36CNU.R2 

R1.R2 

300$ 

FATFLG 

ERRNa,T36NA5,tXPRtC 



FATFLG, <>15, 

999$ 

PC.CKDROP 



PC.TSTLOOP 

165$ 

T56L00P 



'.LT UP R4 WIIH PACKt.I ADDRt 

Cl.tAH COUNTFR 

StT DROP DEAD COl^NTLR VALUE 

ISSUE COMMAND 

[;ET TS'iR CONTFNTS 

CHECK FOR GSR 5E [ 

RK, IF SSR IS SET 



J J 



BUMP CYCLt 
CUT NUMBER 



COUNTtP 
OF LOOPS 



BUMP DROP DFAD 



DOWN 
MOV 
.WORD 
MOV 
.WORD 
DEC 
BNE 
DEC 
BNE 
COUNTER 



.'Jl.rPC)* 


I (DLr,CPC)* 

^CPO 
. 4 

-22r PC) 
.-20 



■BR. IF THERE IS STILL TIME 

iSET UP EXPECTED 

J ARE THEY EQUAL 

;BR. IK OK 

; ERROR COUNT 

;TSSR INCORRECT AFTER WRITE DATA 

TRAP 
.WORD 
.WORD 
.WORD 



LOOP IF SELECTED 



TRAP 



GET FIRST COUNTER 

GF r SECOND COUNTER 

25 -APR 83 REV B - COMPARE EM 

BR. IF VALUES ARE CORRECT COK) 

(ERROR COLfn 
TAPE NOT AT CORRECT SPEED 

TRAP 



CJERHRD 
819 

WRTERR 
PKTSSR 

C$CLP1 



J LOOP IK SELECTED 



.WORD 
.WORD 
.WORD 

TRAP 



TST 



L 100 72: 

TRAP 
;1S ERROR COUNT AT 25 
jBR. IF LESS THAN 25 
I TRY TO DROP THE UNIT 



DO WE NEED TO ITERATE TEST 
BR. IF NO LOOP REQUIRED 
EXECUTE AGAIN 

ALL DONE THIS TEST 



CIERHRD 

820 

r A6NAS 

EXPRtX 

C$CLP1 



C$E5UB 



TtST 1 HARDWARK TKST 18 TtST MACRO Hl^OO ..'0 MAR-84 08:44 PAGfc ^5 111 
TLSr 8: RtXORD BUf^FRINb 



: LOCAL STORAGt, ^ OR THIS TEST 





0/5600 


1044 52 




075602 


003544 


br>v>9 






^590 






SS91 






S^93 




075610 


^59^ 


075610 




r.S96 


075610 


100004 


^59 7 


075612 


075620 


S598 


075614 


000000 


SS99 


075616 


000012 


5600 


075620 




5601 


075620 


075632 


560^^ 


075622 


000000 


S603 


075624 


000024 


5604 


075626 


000000 


5605 


075650 


OOCOOO 


5606 


075632 




560*' 






5606 






5609 






5611 




075720 


5615 


0/5720 




5614 


0/5720 


100006 


5L15 


075722 


075740 


5616 


075724 


000000 


561 / 


075726 


000006 


5618 






be?.2 


0/5/50 




56?5 


075750 


100005 


S624 


75732 




5625 


075732 


003116 


56r'6 


075754 


000000 


56? 7 


075736 


000000 


5628 






56P9 






5650 






5651 






565^> 


075 740 




5655 


075740 


010 


-.654 


075741 


200 


5655 


075/42 


< '00000 


5636 


075744 


000000 


5637 






5658 






l>65'^ 






5640 






5o41 






5^4.^ 


75/46 


100205 


5645 


075750 


100605 


5644 


0/5/52 


102205 


5645 


075754 


177777 


5646 






S64/ 






^648 


0/5756 


000000 


5649 


075760 


000000 


5650 


075/62 


000000 





.=^<. *10 


>£1777V0 


T36PACKtT: 






.WORD 


100004 




.WORD 


T56DATA 




.WORD 







.WORD 


10. 


T36DATA 


• 






.WORD 


T56BFR 




.WORD 







.WORD 


20. 




.WORD 





T360SW: 


.WORD 





T36BF'R: 


.BLKW 


25. 


i WRITE 


SUBSYSTEM MEMORY 




.»'. '10 


>6l777/0 


T36PK2: 








.WORD 


100006 




.WORD 


T56BF2 




.WORD 







.WORD 


6. 


T56PK5: 








.WORD 


100005 


T36RB: 






T56WB: 


.WORD 


FREE 




.WORD 





T56Si?: 


.WORD 
.F.Vt'N 





f56BF2: 






T36BS0: 


.BYTE 


10 


T55BS1: 


.BYTE 


200 


T56S2: 


.WORD 





T56S3: 


.WORD 






I 

[■VFN 
;TAPL MOTION PACKET COMMAND VALUES 



T56RN; 
1 36W0R : 
T36C0N: 



"[56CNT 
T5bCNU 
T36DLY 



.WORD 
.WORD 
.WORD 
.WORD 



100205 
100605 
102205 
177777 



. WORD 
.WORD 
.WORD 



SEQ 0205 



TRAP 
. WORD 



L 100/0 - 



i COMMAND PACKET TOR TfST 

[WRITE CHARACTERISTICS COMMAND. WITH 

;ADDRFSS OF CHARACTERISTICS 8i OCK 

iSTARTir'C, VALUE. OF BLOCK Sl/t 
iCHARACIt-RiSTIC!^' DATA BLOCK 
[ADDRESS OF MESSAGE BIFFER 



ACK 



iLENGTH OF 

jSELECT DRIVE 
I MESSAGE BUFFER 



BUFFER 



[WRITE SUB SYS MEM COMMAND. AND ACK 
; ADDRESS OF SELECT BLOCK DATA 

;SIZE OF DATA PACKET 



[REREAD COMMAND. AND ACK 
J ADDRESS OF WRITE BLUFFER 
jbIZE OF BUFFER (EXTENT) 



[BSELO AREA 
tBSELl AREA 
[SEL 2 AREA 
(DATA ' REA 



tf.EREAO DATA CNEXT) 
[REREAD DATA RETRY 
[WRIIE CONTINOUS 
[END OF DATA 



[TAPE TIMER COliNTER 
t TAPE TIMER COL»NTER 
iOtLAY COUNTER 



STORAGf 
STORAGE 



ARLA 
AREA 



r 



ThST 1 HAt^nwARL TF'U 18 THST MACRO Ml,?00 .'O MAR-tt4 08;44 PAGH ^5 lie? 
TtSr 8: RtCORD BUFFERING 



SEQ 0^06 



:;6Si 

5655 
b6S4 
5fi55 
5656 

5658 
5659 
5660 
5661 
566:^ 
5665 
5664 
5665 
5666 
5667 
5668 
5669 
5670 
5671 
56 /'2 
5675 
56/4 
56/5 
5676 
56/7 
56/8 
""^679 
5680 
5681 
568P 
5685 
5684 
5685 
5686 
^68 7 
5f 58 
5hH^' 
5690 
5691 
569,'^ 
5695 
5694 
5695 
5696 
5697 
S698 
5699 
5 700 
5701 
570*^ 
5/05 
5704 
5705 
5706 
5707 



075764 
076055 
0761^5 
07617;,^ 
076267 
076551 
0764?! 
076476 
76557 
076615 
076665 
076/60 
077055 
077114 
0/7171 
77^40 
0/7515 
07736.^ 
0//455 
077525 
077600 
0/7653 
0///P6 
100015 
10007 7 
100161 
10024 / 
100535 
1004 53 
100510 
100572 
100652 
100747 



100/70 
100 7/0 
100 //4 
101000 
101004 
101010 
101012 
101016 
101022 
101024 
101050 
10103J 



111 
124 
124 
122 
120 
122 
124 
111 
122 
124 
124 
12V 
122 
124 
122 
122 
124 
104 
124 
124 
105 
124 
12/ 
122 
122 
122 
122 
127 
124 
124 
124 
104 
12^ 



012/01 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
012711 



155 
141 
125 
105 
117 
HI 
125 
154 
105 
12? 
141 
122 
105 
125 
145 
101 
125 
162 
125 
125 
126 
125 
122 
145 
145 
145 
145 
122 
123 
125 
125 
141 
145 



0/5610 
100004 
075620 

000012 
075652 

000024 
000000 



160 
160 
123 
122 
123 
102 
125 
154 
122 
125 
160 
111 
122 
123 
167 
115 
125 
151 
125 
125 
105 
102 
111 
141 
141 
163 
141 
111 
123 
125 
123 
164 
143 



LOCAL TtXT rit:S5AGtS TOR TEST 



T56NAS 
T36WNG 
T36RDF 
T36RRF 
T36SC: 
T36L0R 
T36W0F 
T36L0Q 
T36SSR 
T36U0E 
T36B0T 
T36TiM 
T36E0r 
T36TM: 
T36RWN 
T36RNC 
T56AH3 
T360rL 
T56WDD 
T36U0C 
T36VCK 
T56BA: 
T36USS 
1 36L0N 
T36i OP 
T56PBP 
T36TRL 
T36N£F 
T36SCF 
T36TSA 
T56URF 
T56DTA 
TST36ID 



.ASCIZ 'Improper Tape Controller Buffering Speed' 

.ASCI/ 'Tape Position Incorrect After REREAD Previcjf; (0PP = 1)' 

.A5CIZ ' TSSR Incorrect After READ DATA Command' 

.ASCIZ 'REREAD Previous (Space Reverse. Read Forward) Command Failed' 

.ASCT7 'POSITION (Space Command) Failed, TSSR Not Correct' 

.ASCIZ 'RIB NOT SET AFTER READ REVERSE INTO BOT' 

.ASCIZ 'TSSR Not Correct After Illegal Mode Bits Set' 

.ASCIZ 'lUeQal Mode Bits. Failed To Set ILC Bit In XSTO' 

.ASCIZ 'REREAD COMMAND Not Accepted' 

.ASCIZ 'TSSR Not Correct After WRITE DATA Command' 

.ASCIZ 'Tape Not At BOT After REWIND Command (BOT Not Set In XSTO)' 

.ASCIZ 'WRITE DATA RETRY' '5 Erase Tape Not Long Enough' 

.ASCIZ 'REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT' 

.ASCIZ 'TSSR Not Correct After REREAD COMMAND Reject' 

.ASCIZ Rewind (POSITION) Command Not Accepted' 

.ASCIZ 'HAM Error, Correct Data Pattern Not In Ram' 

.ASCIZ 'TSSR Init. Failed After REREAD COMMAND' 

.ASCIZ 'Drive 7 Soiect Failed To Set "OTL" In TSSR' 

.ASCIZ 'TSSR Not Correct After REREAD DATA Command. SWB Bit Set' 

.ASCIZ 'TSSR Not Correct After REREAD DATA Command' 

.ASCIZ 'CVC Set. Didn''t Reset VCK In Message Buffer' 

.ASCIZ 'TS8A Not Correct After REREAD DATA Command' 

.ASCIZ 'WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)' 

.ASCIZ 'Reading Long Record Failed To Set RLL Bit In XSTO' 

.ASCIZ 'Reading Long Record Failed To Set RLS Bit In XSTO' 

.ASCIZ 'Residual Byte Count Incorrect After Short Record Read' 

.ASCIZ 'Reading Long Record Failed To Give Tape Status Al-rf 

.ASCIZ 'WRITE DATA RETRY. At First Record, Failed To Set RIB B^t XST3 

.ASCIZ 'TSSR Not Correct After SPACE RECORDS Command' 

.ASCIZ 'TSSR Not Correct After WRITE DATA RETRY. Into BUT' 

.ASCIZ 'TSSR Not Correct After WRITE DATA RtTRY Command' 

.ASCIZ 'Data Compare Error. Data Read From Tape Not Equal To Written' 

.ASCIZ 'Record Buffering' 
.EVEN 



ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUE5 
WRITE SUBSYSTEM MEMORY COMMAND 



T36RbST: 



5AVREG 

MOV 0T36PACKET,R1 

MOV 0100004. (Rl)» 

MOV 0T56DATA.(R1)* 

CI R (RD* 

MOV 010. .(Rl)» 

MOV 0T56BFR,(R1)* 

CLR CRn* 

MOV 020. ,(R1 )♦ 

CLR (Rl)» 

MOV ^/0,(R1) 



iSAVE THE REGISTERS 

J START OF THE PACKET 

(WRITE SUBSYSTEM MEM. WITH ACK , 

I ADDRESS OF CHARAISTIC5 DATA BLOCK 

lEXTENOED ADDRESS 

[SIZE OF DATA BLOCK IN BtTES 

! ADDRESS OF MESSAGE BUFFER 

(LENGTH OF MESSAGE BUFFER 

iSELtCT DRIVE ZERO 



Hit. 

IbS.T I HARjWARf i>"'lT 1-8 TtST MACRU Mlc^OO .-.'O HAR-tt4 08:44 PAGf-; ^5 113 
TtST 8: RIXORO BUfKERINli 



'jEQ 0^0 V 



5708 


101036 


012/02 


000030 


5709 


101042 


012762 


177777 075b32 


5710 


101050 


005742 




5711 


101052 


022702 


000000 


5/lc^ 


101056 


001371 




^.713 


101060 


000207 




5714 








5 U 5 


101062 






5716 


101062 






!^/l/ 


101066 


012701 


075720 


5718 


101072 


012721 


100006 


5719 


101076 


012721 


075740 


5720 


10U02 


005021 




5/21 


101104 


012721 


OOOOOfc 


5722 


101110 


005021 




5723 


101112 


012701 


075740 


5724 


101116 


005021 




5 725 


101120 


005011 




5/26 


101122 


000207 




5/2/ 


101124 






5728 


10112A 






5729 


101130 


012701 


075730 


5730 


101134 


005021 




5/31 


101136 


005021 




5732 


101140 


005021 




5735 


101142 


005011 




5/34 


101144 


000207 




5735 


101146 
101146 








101146 


104401 




5 7 36 








5/3/ 








5/38 








5739 








5/40 








5 Ml 








5/42 








5 743 








5/44 








5745 








5/46 








5/4/ 








5/48 








5/49 








5/50 








5751 


101150 
101150 






5752 


101150 


012737 


006354 002172 


5/53 


101156 


004 757 


017354 


5758 


101162 


012700 


1053/3 


5759 


101166 


004 737 


016570 


5760 


101172 


012757 


000005 002^10 


5/61 


101200 


005037 


10243b 


5/62 








5765 








5764 








5765 











MOV 


.^^''4. .R2 


64$: 


MOV 


^n77777.T36QrRCRi?:) 




TST 


(R2") 




CMP 


irO . R2 




HNt-: 


64$ 




RTS 


PC 


T36RT2: 


savre-:g 






MOV 


^T36PK2.R1 




MOV 


in 00006, CRD* 




MOV 


<K36tJK2.(Rl)* 




CLR 


(RU* 




MGV 


V?6. .tWl ■)* 




CLR 


(Rn» 




MOV 


.^T36BK2,R1 




CLR 


CR1)» 




n R 


CRD 




RTS 


PC 


T56RT3: 


SAVREG 






MOV 


*r36Pl<3,Rl 




CLR 


(Rl)t 




CLR 


(RD* 




Cl-R 


CRDf 




CLR 


(RD 




RTS 


PC 




tNDTST 





NUMBER or LOCATIONS TO RF CLFARFO 
ALL ONtS TO MESSAGF BUFFER 
NEXT LOCATION 

}Ar END Oi LOOP Ytr 

;l<EtP GOING UNTIL DONE 

; RE TURN 



SAVE THE 
START OF 



REGISTERS 
THE PACKET 



J WRITE SUBSYSTEM MEM. WITH 
i ADDRESS Of DATA BLOCK 
jEXTENDEO ADDRESS 

OF DATA BLOCK IN BYTES 



ACK. 



jSI?t 



jPOINT TO DATA SEL AREA 



iRETL'RN 

'.SAVE REGISTERS 

iSET UP POINTER ADDRESS 

{COMMAND SPACE 

I ADDRESS OF DATA BLOCK 

;EXTtNOED AODftESS 

J SIZE OF DATA TRANSFEP BLOCI 

iRETURN 



.SBTTL TEST 9: FUNCTION TIMING 



THIS TEST VERIFIES THAT THE TAPE TRANSPORT 



L10070: 



TO BE WRITING 



"^AP 



C$bTST 



RECORDS. GAPS, AND EX I'ENDEO GAPS OF THE PROPER LENGTH. BOTH LOW 
AND HIGH SPEED MOOES ARE TESTED. IT IS ALSO VERIFIED THAT A 
SPACE RECORDS COMMAND WITH A RECORD COUNT CF 80 OR MORE, AND A 
SKIP TAPE MARKS COMMAND WITH A COUNT OF 2 OF MORE, OPERATE THE 
TAPE IN HIGH-SPEED MODE. THIS TEST CAN ONLY BE RUN IF A 
REAL-TIME CLOCK IS AVAILIABLE ON THE SYSTEM. THE TEST OPERATES BY 
TTMTNG VARIOUS I APE -MOTION OPERATIONS. USING A NUMBER OE 
I DIFFERENT TEST RECORD LENGTHS. 



I - 



DGNTST 

MOV 
JSR 
MOV 
JSR 
MOV 
CLR 



<^£PRT1,£PRTSW 

PC, K TOFF 

OTST37ID.RO 

PCTSTSETUP 

O5.L0OPCNT 

T37CNT 



T9: : 
i PRIMARY ERROR MESSAGE 
:TURN KT OFF 
sen MESSAGE TO IDENTIFY 
DO INITIAL TEST SETUP 
PERFORM 5 ITERATIONS 
CLEAR TAPE RECORD COUNTER 



lASCII 



TEST 



lES^ 9. SUBTEST 1 



USbR DOCUMLNIAMON 



ni. 

(U 

(,] 

(- 1 
til 

Ml 
TI 
JI 
Kl 
11 
Ml 
Nl 



t s 

IS 
JS 

Mb 
N5 



[) * 
t') 
f fy 

h9 

1.9 
M9 
N9 



oi;', 

il5 

G15 
H13 

Ml 3 
N15 



C? 

fi2 
H2 
1?. 
J? 
K?. 

Mc' 
N2 



Bb 
C6 
1)6 
K6 
f 6 
G6 
H6 

J6 
Kfc 
L.6 
M6 
N6 



HIO 
CIO 
DIO 
hlO 
I- 10 
CilO 
HlO 
110 
.110 
KIO 
LIO 
MIO 
NIO 



Bin 
C14 
DH 

ri4 

GIA 
H14 
114 
J14 
K14 
1.14 
M14 
N14 



B3 

C3 
D5 

^;3 
r3 

L. ■ 

H3 
13 
J3 
K3 
L-< 
M3 
N3 



B7 
C/ 
D7 

t;7 

F7 

H7 
1/ 

J/ 
1^ / 
L / 
M/ 
N7 



Bll 
CU 
Dll 
FVl 
Kll 
Ull 
Hll 
111 
Jll 
Kll 
L.il 
Mil 
Nil 



BIS 

Clb 
D15 

ri5 

G15 
HIS 
115 
J15 
Kl^ 
1.15 
M15 
N15 



B4 

CA 
OA 
E4 
F4 
G4 
M4 
14 
J4 
KA 
L4 
M4 
N4 



M8 
CH 
D6 
E-8 

f-a 

Gd 
H8 
18 
J8 
K8 
L-8 
M8 
N8 



Olc^ 

CI.'' 
Dli^ 
b.lk 
hi?. 
Gl? 
hl^ 
112 
J12 
Ki?. 
L12 
M12 

Nia 



B16 

C16 
D16 
tlb 
F16 
G16 
Hlb 
116 
J 16 
K16 
L.16 
M16 



TEST 1 HARDWARE TfST 1 « TtS 
TtSr 9t FUNCTION TIMING 
5766 

5768 

576<? 

577C 
5771 
5772 



MACRO Ml?00 c'O MAR -84 08:44 PAGt ^5 114 



SEQ 0208 



5773 
5774 
5775 
5776 

5777 

5778 
5 7 79 
5 780 
5781 
5782 



5785 

5784 
5765 
5789 
5790 



5791 
5792 
5793 

5r,.4 

5/95 
57% 
5800 
5801 



580? 

5803 
5804 
5805 
5806 
5807 
581X 



101P04 
101204 
1012O4 
101204 
101206 
101212 
101216 
101222 
101226 
101252 
101256 
101244 
101250 
10125? 
101252 
101256 
101260 
101264 
101266 
101272 
101274 
101500 
101502 
101506 
101510 
101514 
101516 
101516 
101520 
101522 
101524 
101326 

101554 
101540 
101544 
101546 
101552 
101554 
1015S4 
101556 
101560 
101562 
101564 
101564 
101566 
101572 
101574 
101400 
101402 
101406 
101406 



104402 
005057 
005057 
005057 
004757 
004737 
004757 
012737 
004737 
103426 

01272? 
000000 
015727 
000000 
005567 
001575 
005567 
001567 
005537 
001556 
005257 
010001 

104455 
001605 
005646 
012114 

015757 

012704 
004757 
105407 
005257 
010001 

104456 
001606 
005052 
012114 

1O4406 
004757 
103411 
016501 
010004 
005? 5 7 

104456 



002216 
102436 
102440 
105414 
10550t 
105550 
176 750 
016054 



000250 

002116 

1777;? 

K7756 
102442 
0G2.fl4 



011074 

00000? 



10244? 



T37LaOP: 




HGNSUe 




ClR 


INTRtCv 


ClR 


T57CNT 


CLR 


T5 7CNC' 


J5R 


PC.T57RtS' 


j^:,R 


PC.T3?PT? 


JSR 


PC . T 5 'R T 3 


MQv 


•6*^000. . T5 70i 


10$: i^H 


PC.SOf INIT 


B: ; 


?0« 


DfLa> 


250 



002174 102510 20--. 

102270 
010 M? 

002214 



dZii 



DtC 
BNt 

INC 
MOV 
ERROF 



^tov 

MOV 
JSR 
BC5 
INC 
MOV 
FRRHRO 



CKIOUP 

JSR 
BCj 
MOV 
MQV 
INC 
ERRHRD 



T57CM 1 

101 

^ ATf Lti 

RO.Rl 

ERRNO.SriERR.SFIMSG 



UNTTN.T5V0SU 

♦T57PAtKEr,R4 

PC.WRTCHR 

251 

FATFLG 

RO.Rl 

E RRNO . Ufi TMSG . 5F IMSG 



PC. REWIND 

301 

T5SR(RS).R1 

R0.R4 

fATFLC^ 

tRRN0,r3i'RWN»PKTSjSH 



)>>>>>>>>>>> BEGIN SUBTfjT >>>>*>^»».>> 



TO. I 



TRAP 



L»0SO? 



INTERRUPT INDICATOR 

TIMER rOR WRITE DATA SPACING 

TIMER rOR WRITE DATA RET^Jr SPACINtj 

SET COMMAND PACKET 

SET UP OTHER COMMAND 

5f T \.p OT^^R COftlANO 

*^<- T LP DEI At COUNTER 

OC INITIALIZE ON CONTROLltR 

BR If INIT WA> OK 

DELAY ABOUT .?5 SFC 



PACKET 
PACKE T 



WV 


#250, t PC '• 


,WORD 





MOV 


LiDLT.rPC) 


.WORD 





DEC 


6fPC^- 


BNE 


. 4 


DEC 


??(PC) 


BNE 


. -20 



iBUMP COUNTER 

iBR, IF COUNTER NOT DONE 
lERROR COUNT 

iCONTENTS Of TSSr^ REGISTER 

(FATAL ERROR TSSR WAS fK)T OK 

TRAP 
.WORD 
.WORD 
.WORD 

I SET UP UNIT NUr«ER 



CIEROF 

901 
SFIERR 

5F IMSG 



I SUBROUTINE NEEDS PACKET ADDRESS 
jlSSUt WRITE CHARACTERISTICS 
iBR, ir COMMAND ISSUED OK 

I ERROR COUf^T 
iSAvr CONTENTS OF TSSR 
iWRITE CHARACTERISTIbC 



PAILEO 




TRAP 


CiERHRD 


.WORD 


902 


.WOMO 


WRTMSG 


.WORD 


SFIMSG 



jLOOP IF SELECTED 

TRAP CSCLPl 

iCALL TAPE REWIND COMMAND 
iBR. IF NO PROBLEM 
»Gt T TSSR CONTENTS 
iG^J PACKET ADDRESS 

I ERROR COUNT 
iRtWIND NOT ACCEPTED 

TRAP C$ERHRO 



rtS: 9: KLfNCTION TIMING, 



^0$ 



Prt(,( 



s ir. 





101410 


0016C • 






10141c^ 


105M^ 






101414 


oi,n.> 




58U: 


I014lf 








101416 


104406 




S81? 


101420 


015701 


UV5A'' 


^814 


101424 


010102 




•^.-^15 


101426 


052 702 


OOOOO."" 


Sdl6 


101432 


020102 




5817 


101434 


001406 




5818 


101456 


00525 7 


002214 


582a 


101442 








101442 


104456 






101444 


001610 






101446 


105311 






101450 


015554 




5823 


101452 








101452 


104406 




S824 


101454 


012 705 


000144 


5825 


101460 


015737 


005116 102412 


5826 


101466 


012737 


140005 102410 


5827 


101474 


012704 


102410 


5828 


101500 


012737 


001150 102416 


5820 


101506 


010465 


000000 


5830 


101512 


004737 


016330 


5831 


101516 


016501 


000002 


5832 


101522 


012 702 


000200 


5633 


101526 


020102 




5834 


101550 


001406 




5635 


101532 


005257 


002214 


5859 


101556 








.101556 


104456 






101S40 


001611 






101542 


104151 






101544 


012126 




5840 


101546 








101546 


104406 




5841 


101550 


005505 




5842 


101552 


001545 




5843 


101554 


004757 


011074 


5844 


101560 


105411 




5845 


101562 


016501 


000002 


5846 


101566 


010004 




5847 


101570 


005257 


002214 


5851 


101574 








101574 


104456 






101576 


001612 






10160Ct 


'05615 






101601 


012126 




5852 


IOI6O1 








101604 


104406 




5855 


101606 


015701 


102520 


5854 


101612 


010102 




5855 


101614 


052702 


000002 


5856 


101620 


020102 




585? 


101622 


001406 




5859 


101624 


005257 


002^14 



40$: 



65*1 



70 J: 













'jEQ 020'^ 








. WOR'J 


90'. 










. WORD 


r 5 -^UN 










. WORD 


PfT-OP 




C"t i\)P 






»l nop IF '-.H f.CTFD 

TRAP 


CiCt.Pl 




MllV 


I^7B^ H't.,Rl 




(PICK IJP Xi,10 






MPV 


Rl ,R.' 




r-t T UP EXPtCTFD 






BP:. 


<>fUM.R2 




»'-.(-. T BOT BIT IN fXPECTFD 






CMP 


Rl.R.' 




I OOFS FXP • RF.C'O 






BKJ 


40$ 




(BR. IF' FQUAl. (OK) 






INC 


> ATFi t. 




jERROR CO'iNT 






hRRHRP 


E-RRNO,T3 7ROT 


FXPREC 


I TAPE NOT AT BOT AFTER REWIND 

TRAP 
.UORD 
.UORD 
.WORD 


CiFRHRD 
90/r 

T37BCr 
EXPRFC 




CKl COP 






jLOOP If SELECTED 

TRAP 


CJCLPl 




MOV 


0100. ,R5 




t NUMBER OF RECORDS TO BE WRITTEN 




MOv 


FREt.T3/we 




iSTARTING WRITE BUTFER ADDRESS 






MOV 


0140005, T57PK3 


iWRITE DATA,ACK.CVC-1 COMMAND 






MOV 


OT57PK5.R4 




iSET UP R4 WITH PACKET ADDRESS 






MOV 


♦600. ,T375Z 




» SET UP RECORD SIZE IN PACKET 






MOV 


R4.TSC>B(R5) 




, rSSL€ COMMAND 






JSR 


PC.UAITF 




iL'AIT FOR SSR TO SET 






MOV 


TSSRCR5),R1 




iGET TSSR CONTENTS 






MOV 


#SSR,R2 




(SET UP EXPECTED 






CHP 


Rl,R2 




J ARE THEY EQUAL 






BPQ 


70$ 




iBR. IF OK 






INC 


F ATFLG 




jERROR COUNT 






LRRHRD 


ERRNO,T37WOC 


.PKTSSR 


(TSSR INCORRECT AFTER WRITE DATA 










TRAP 


CSERHRD 










.WORD 


905 










.WORD 


T57U0C 










.WORD 


PKTSSR 





CKLOOP 



13Q$: CKLOOP 



DEC 


R3 


BN6 


65 J 


JSR 


PC. REWIND 


BCS 


150$ 


MOV 


TSSR(R5),R1 


MOV 


R0,R4 


INC 


FATFLG 


ERRHPD 


tRRNO,T37RWN, PKTSSR 



jLOOP IF SELECTED 

TRAP 
iDtC RECORD COUNTER 
jBR. IF MORE RECORDS TO URITfc 
jCALL TAPE REWIND COMMAND 
I BR. IF NO PROBLEM 
I GET TSSR CONTEN j 
I GET PACKilT ADDRESS 
(ERROR COUNT 
(REWIND NOT ACCEPTED 



CSCLPl 



MOV 


T57BFR»6.R1 


MOV 


RI.R2 


BIS 


*ei:i.R2 


CMP 


R1.R2 


BEQ 


140$ 


INC 


FATFLG 



TRAP 


C$ERHRO 


.WORD 


906 


.WORD 


T57RWN 


.WORD 


PKTSSR 


(LOOP IF SELECTED 




TRAP 


C5CLP1 


(PICK UP xsro 




(SET UP EXPECTED 




;^ET BOT BIT IN EXPECTED 




jDOES EXP - REC'D 




I BR, IF EQUAL (OK) 




1 ERROR COUNT 





TtS: 9: KfNCTION VlMiNi, 






':j(^(j o^;o 



^86c^ 



Sflfe? 

^86 7 
586t^ 
58b9 



5870 
5871 
587? 
5875 
5H74 
5875 
5876 
5880 



5881 

5882 
5885 
5884 
5885 
5886 
5890 



5891 

5892 
5895 
5894 
5895 

5896 

5897 

5901 



101630 
101650 
101652 
101634 
101636 
101640 
101640 
101642 
101646 
101654 
101662 
101666 
101672 
101672 
101676 
1C1700 
101704 
101706 
101712 
101714 
101720 
101722 
101726 
101732 
10)734 
101740 
101742 
101744 
101750 
101750 
101 "^52 
101754 
101756 
101760 
101760 
101762 
: 01 766 
101770 
101772 
101776 
10200? 
102002 
102004 
102006 
102010 
102012 
102012 
1020K 
102020 
102022 
102026 
102030 
102032 
102056 
102036 
102040 
102042 



1044V. 
001615 
103511 
015554 

104406 
012704 
012757 
012737 
010465 
005257 

012727 
000000 
015727 
000000 
005367 
001375 
005367 
001567 
016501 
032701 
001755 
012702 
C2O201 
001406 
005237 

104456 
001614 
10505 / 
012126 

104406 
004757 
105411 
010004 
016501 
005257 

104456 
001615 
105615 
012126 

104406 
015701 
010102 
052702 
020102 
001406 
00525 7 

104456 
001616 
103311 



011074 



C 0000c 
002214 



I HRHRO HRRNU,T^7B0T,tXPWlC 



140S: CKi OOP 



102410 

0000^7 10*^41.' 

140010 102410 

OOOOOC' 

1024 36 

000001 

002116 

177772 

177756 

000O02 
000200 

000200 
002214 



102520 
000002 

002214 



150$: 
152$: 



HOV 
MOV 
MOv 
INC 
OFLAY 



160$ 



170$ 



CKI OOP 



APf: NOT AT BOT APTlR 



(I OOP U StLPCTEO 



RLWIND 
TRAP 
.WORD 
.WORD 
.WORD 



VJT5 7PI<^,R4 
051 . , T5/RB 
01400U),T5;PI<5 
R4.TS0B(R5) 
T57CNT 

1 



5^:i L*p PACKrr address 

StT HP RFC0RD5 TO 5PACf; 

ACK.CVC-1, SPACE PORWARD 

rSSk^t. COMMAND 

B'-'MP TlMtP 

Dtl AY ABOUT lOOUb 



TRAP 

OVF.P 
COMMAND 



C$ERHRD 
907 
T57fjOT 
EXPR(-C 

C$CLP1 



MOV 

.WORD 

MOV 

.WORD 

DEC 

B^4E 

DEC 

BNE 



MOV 


T57BrR*6.Rl 


MOV 


Rl,R2 


BIS 


•eiTl,R2 


CMP 


R1.R2 


BEQ 


175$ 


INC 


TATFLG 


tRRHRO 


ERRNO,T37BOT.EXPREC 



iLOOP IF SELECTED 

iPICK UP X5T0 

(SET l^ EXPECTED 

iSFT BOT BIT IN EXPECTED 

,O0ES EXP • REG D 

jS;"^, IF EQUAL (OK) 

I ERROR CQ[^J 
jTAP& NOT AT BOT AFTER 



TRAP 



REWIND 
TRAP 
.WORD 
.WORD 



(PZ) 



91 


L$DL< 


-6(PC> 
. 4 

-22CPC J 
. -20 



:pc) 



MOV 


TSSR(R5),R1 






(GET TSSR 




BIT 


frSSR.Rl 






(CHECK FOR TSSR S SSR SET 




BEQ 


152$ 






(KFEP COt^TING UNTIL SET 




MOV 


0SSR.R2 






(SET UP EXPECTED 




CMP 


R2.R1 






(WAS EVERTTHING OK 




BEQ 


160$ 






jBR, IF ALL IS WELL 




INC 


MTFLG 






(ERROR COUNT 




ERRHRD 


ERRNO,T37SCF 


PKT 


.isrt 


(SPACE FORWARD DIDN'T WORK OUT 

TRAP 
.WORD 
.WORD 
.WORD 


C$ERHRD 
908 
T57SCr 
PKTSSR 


CKLOOP 








(LOOP IF SELECTED 

TRAP 


CSCLPl 


JSR 


PC. RE WIND 






(CALL TAPE REWIND COMMAND 




b:s 


170$ 






(BR. IF NO PROBLEM 




MOV 


R0.R4 






(GET PACKET ADDRESS 




MOV 


TSSR(R5),R1 






(GET STATUS FROM TS5P 




INC 


FATFIG 






(ERROR COUNT 




EHRHRO 


ERRN0,T37RWN 


PKTSSR 


(REWIND NOT ACCEPTED 












TRAP 


C$ERHRD 










.WORD 


fK)9 










.WORD 


T5 7Rv^ 










.WORD 


PKVSSP 



C$CLP1 



C$ERHRD 

910 

T37B0T 



TFST I HARrwAPl TK'^f 1 t^ TKST MAC»iU Mlc'OO JO MAH-64 0H:4^ PAGt P*") 117 
TEST 9: KLiNCTION TIMING 



^^FQ 0^11 



b904 
'.906 

^908 



5910 
5911 
59U» 
5915 
5914 
5915 
5919 



5920 

5921 
592P 
5925 
5924 
5925 
5926 
592 7 
5931 



5952 
5933 



5054 
5955 
5956 
5957 

5938 
5959 
5940 
594: 
^942 



102044 
102046 
102046 
102050 
102054 
102062 
102070 
102074 
10^ 100 
102100 
102.104 
102106 
102112 
102114 
102120 
102122 
102126 
102130 
102134 
102140 
102142 
102146 
102150 
102152 
102156 
102156 
102160 
102162 
102164 
102166 
102166 
102170 
102174 
102200 
102204 
102210 
102212 
102214 
102220 
102220 
102222 
102224 
102226 
102230 
102230 
102232 
102252 
102232 
102254 
102242 
102244 
102250 



102250 
102254 



0155M 

104406 
012704 
012737 
012737 
010465 
005237 



000000 
013727 
000000 
005367 
001375 
005567 
001567 
016501 
052^01 
001755 
012 702 
020201 
001406 
005237 

104456 
0016W 
105057 
012126 

104406 
015701 
015702 
042701 
042702 
020102 
003406 
005257 

104456 
001620 
105404 
015554 

104406 



104405 
025727 
103402 
004737 



004 7 5 ' 
103002 



10^410 
000121 
140010 
000000 
102440 

000001 

002116 

177756 

000002 
000200 

000200 
002214 



1024 36 
102440 
000077 
000077 



C02214 



io.:4i.' 

102410 



1/5$ 



250$ 
252$ 



CKl JUF* 



MOV 


*> 5;PK3.R4 


MUV 


oei. . r3;RH 


MOV 


*M0010,15/PI<^ 


MOV 


R4.T'^jD0CP51 


INC 


T57CNU 


DELAY 


1 



MOV 
BIT 
BEJ 
MOV 
CMP 
BEQ 
INC 
FRRHRD 



260$: CKL.00P 



500$ 



002214 000017 
017262 

016536 



CKl OOP 
FN05U6 



CMP 

BLO 

jr.R 



99') $ 



TSSR(R5).R1 

OSSR.Rl 

252$ 

#SSR.P2 

R2.R1 

260$ 

FATFLG 

ERRNO,T57SCF,Pl<TSSR 



jSR 
BCC 



FATFLG. 015 

999$ 

PC.CKDROP 



PC.TSTLGOP 
165$ 



OOP IF SFlt . TFO 



.WORD FXPRf-C 



TRAP 



C$CLP1 



:SF.T iJP PACKET ADDRFGG 




iM-T UP RECORDS TO SPACE OVER 




;ACK,CVC'l.'iPACfc FORWARD COMMAND 


i r.iSDE COMMAND 




;BUMP TIMER 




iDELAr ABOUT lOOUS 




MOV 


.'Jl.^PO* 


.WORD 





MOV 


L$Ul.f .(PC) 


.WORD 





DEC 


-6CPC) 


BNE 


. 4 


DEC 


-22CPC) 


BNfc 


. -20 



MOV 


t37;nt.ri 


1 


MOV 


T57:NU.fi2 


t 


BIC 


*OOX)77.R1 


t 


BIC 


*OC0077,n2 


t 


CMP 


Rl R2 


1 


BLE 


50)$ 


; 


INC 


FATFLG 




ERRHRD 


EFRN0,T37TIM,EXPREC 


t 



;GET TSSR 

;CHECK FOR TSSH'S SSR S' T 

;KEEP C0L*4TING UNTIl SET 

;SET up EXPECTED 

(WAS EVERtTHING OK 

iBR. rr ALL IS WELL 

J ERROR COUNT 
; SPACE FORWARD DIDN'T WORK OUT 

TRAP 
.WORD 
.WORD 
.WORD 
iLOOP IF SELECTED 

TRAP 
TIME FOR WRITE SPACING 
TIME FOR WRITE RETRY SPACING 
SETTING UP CONSTANTS 
SETTING UP CONSTANTS 
CHECK FOR DIFFERENCE 
BR, IF GOOD aSfitS CHECK ScdSS 

(ERROR COLWT 
TIME WAS NOT DirFERtNT ENOUGH 

TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
911 
T575Cr 
PKTSSR 

C5CLP1 



jLOOP IF SELECTED 



<<<<<<<<<<<<< 



C$ERHRD 
912 

T37TIM 
EXPREC 



END SUBTEST 
L 100 74: 

TRAP 
ilS ERROR COUNT AT 25 
iBR. IF LESS THAN 25 
I TRY TO DROP THE UNIT 



iOO V.'t NtEO TO IIEHATt TEST 
iBR. IF NO LOOP REQUIRED 



TRAP C$CLP1 



C$ESUB 



TtbT 9: fliNCTlON TIMir,,, 



SFQ 0^12 



594? 
5944 
5945 



594 b 
'■94; 
5^48 
5950 
5952 
5953 
5954 
5955 
5956 
595 .' 
5958 
5959 
5960 
5961 
5962 
5963 
5964 
5965 
5966 
5968 
59 70 
5971 
59/2 
5973 
59 74 
5975 
5979 
5980 
5981 
^982 
5985 
5984 
5985 
5986 
598 ^^ 
5968 
5989 
5990 
5991 
599^ 
5993 
5994 
5995 
5996 
5997 
5996 
5999 
6000 
6XH 
6002 
6005 
6004 



).02256 00013/ 101204 



102262 
102262 
102264 



1022"'0 
102270 
1022 7^ 
102274 
102276 
102300 
102300 
102302 
102304 
102506 
102310 
102312 



102400 
102400 
102402 
102404 
102406 

102410 
102410 
102412 
102412 
102414 
102416 



102420 
102420 
102421 
102:22 
102424 



102426 
102450 
102452 
i02434 



1044 52 
003306 



102270 

100004 
102500 

OOOOoo 
000012 

102512 
000000 
000024 
OOOOOO 
000000 



102400 

100006 
102420 
OOOOOO 
000006 



100005 

005116 
OOOOOO 
OOOOOO 



010 

200 

OOOOCC 

OOOOOO 



100205 
100605 
102205 
177777 



163$: 



JMP 



t-.XlT 



r ^ ': OOP 
rsT 



LOCAL 'iTORAGf rO« IHIS T[ST 
.-< . *10'6l 777/0 



T57PACKET: 




.WORD 


100004 


.WORD 


T570ATA 


.WORD 





.WORD 


10. 


T37DATA: 




.WORD 


TB7BfR 


.WORD 





.WORD 


20. 


.WORD 





T37D5W: .WORD 





T^^BFR: .BLKW 


25. 


IwRITt: SUBSYSTEM MEMORY 



T57PK2: 



,'< . •10>tl77770 





.WORD 


100006 




.WORD 


T 378^2 




.WORD 







.WQRl' 


6. 


T57PK3: 








.WORD 


100005 


T37RB: 






T57UB: 


.WORD 


J^REL 




.WORD 





T37SZ: 


.WORD 
.EVEN 





T57BF2: 






T57eSO: 


.BtTE 


10 


T37BS1: 


.BYTE 


200 


T57S2: 


.WORD 





T37S3: 


.WORD 






.EVEN 

:TAPE MOTION PACKET COMMAND VALUES 

T3/RN: .WORD 100205 

T5 7WOR: .WORD 1C0605 

T5 7CON: .WORD 102205 

.WORD 177777 



it xrCliTf AfV'UN 
jALL DONE THI5 YtbT 



TRAP L$F /IT 

.WORD 11007^- . 



iCCMMANU PACKtT FOR "TEST 

jWCITE CHARACTERISE -JS COMMAND. WITH 

lAD)RESS OK CHARACIERISTICS BLOCK 

;STARTING VA' Ut Of BLOCK SIZE 
iCH<\RACTERISTI(:S DATA BLOCK 
jADORESS OF MESSAGE BUfFF.R 

; LENGTH QF MESSAGE Bl.;FFER 

jStUCT ORIVF 
i MESSAGE BUFFER 



ACK 



iWRITE SUB SYS MEM COMMAND. AND ACK 
jAODRESS OF SELECT BLOCK DATA 

I SIZE OF DATA PACKET 



; REREAD COMMAND, AND ACK 
(ADDRESS OF WRITE BUFFER 
iSlZE OF BUFFER (EXTENT) 



i3SEL0 AREA 
;BSEL1 AREA 
;SEL 2 AREA 
iDATA AREA 



(REREAD DATA (NEXT) 
:REREAD DATA RETRl 
; WRITE CONTINOUS 
iENO OF DATA 



TtsT 1 HA«t)WARt ThM 1 8 Tt.ST HACfU) Ml.H)0 .»0 MAR -84 08:44 PAbh ^'SllS 
TLSI 9: KUNCriON TIMINi, 



SEQ Oi^lJ 



600S 
600b 
600 7 
6008 
600^ 
bOlO 
^OU 

^013 
6014 
6015 
6016 
6017 
6018 
^019 
60?0 
6021 
60^2 
6023 
6024 
6025 
6026 
6027 
6023 
6029 
6030 
6031 
6032 
6033 
6034 
6035 
6036 
6057 
6058 
6039 
6040 
6041 
6042 
604 3 
6044 
6045 
6046 
6047 
6048 
6049 
6050 
6051 
6052 
6053 
6054 
6055 
6056 
6057 
6058 
6059 
6060 
6061 



102436 
102440 
102442 



102444 
102552 
102601 
1026 76 
102760 
103030 
103105 
103166 
103222 
1033U 
105404 
105461 
103540 
103615 
105664 
105757 
104006 
104061 
104151 
104224 
104277 
104352 
104441 
104523 
104605 
104673 
104761 
105057 
105134 
105216 
105276 
101=^373 



105414 
105414 

105420 
1054 24 
1054 30 
1054 34 
105436 
105442 
105446 
105450 



ooocoo 

000000 
000000 



124 
124 
122 
120 
122 
124 
111 
122 
124 
124 
127 
122 
124 
122 
122 
124 
104 
124 
124 
103 
124 
1?7 
122 
122 
122 
122 

ir7 

124 
124 
124 
104 
106 



M7CNT ; 
T3 7CNU: 
T3 7DI V: 



. WORD 
.WORP 
.UOR) 



J TAPt TIMER COUNTER 
,TAPe TIMFR COUNTER 
jDtLAY COUNTER 



:.roRAGF 

STORAGt 



ARFA 
AREA 



141 
125 
105 
117 
111 
125 
154 
i05 
125 
141 
122 
105 
123 
145 
101 
123 
162 
125 
125 
126 
125 
122 
145 
145 
145 
145 
122 
123 
125 
123 
141 
165 



012701 102270 

012721 100004 

012721 102300 

005021 

012721 000012 

012/21 l()2M2 

005021 

012721 000024 



160 
125 
122 
125 
102 
125 
154 
122 
123 
160 
111 
122 
123 
16/ 
115 
123 
151 
123 
123 
103 
102 
111 
141 
141 
163 
141 
111 
123 
123 
123 
164 
156 



jLOCAL TEXT MESSAGES FOR TEST 



'5 7WNG: 

T37fVDr : 

Ti/HRFt 

T375C: 

T3/L0R 

T37WOF 

T37L0Q 

T57SSR 

T57WDE 

T37B0T 

T37TIM 

T37E0T 

T37TM: 

T37RWN 

T37RNC 

T37AM5 

T570FL 

T57gDO 

T57WOC 

T57VCK 

T57BA: 

T57WS*" 

T57LON 

T57L0P 

T57PeP 

T57TRL 

T37NeF 

T37SCF 

T37TSA 

T37WRt- 

T3/DTA 

TST37ID: 



I 



A5CIZ 
ASCI/ 
ASCIZ 
ASCIZ 
ASCI7 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCI2 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 

EVEN 



(OPP^l) 



Tope Position Incorrect After REREAD Previou 

TS5R Incorrect After READ DATA Command' 

REREAD Previous (Space Reverse, Read Forward) Command Failed' 

POSITION (Space Command) Failed. TSSR Not Correct' 

RIB NOT SET AFTER READ REVERSE INTO BOT' 

TSSR Not Correct After IlUgal Mo<*e Bits Set' 

Illegal Mode Bits. Failed To Set XLC Bit In XSTO' 

REREAD COMMANC Not Accepted' 

T'TSR Not Corrr t After WRITE DATA RETRY Command. At BQT ' 

^ape Not At BUI After REWIND Command (BOT Not Set In XoTO)' 

WRITE DATA RETRY' 'S Erase Tape Not Long Enough' 

REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT* 

TSSR Not Correct After REREAD COMMAND Reject' 

Rewind (POSITION) Comffland Not Accepted' 

RAM Error, Correct Data Pattern Not In Ram' 

TSSR Inlt. Failed After REREAD COMHAND' 

Drive 7 Select Failed To Set "OFL" In TSSR' 

TSSR Not Correct After REREAD DATA Command, 

TSSR Not Correct After REREAD DATA Command' 

CVC Set. Didn''t Reset VCK In Messaoe Buffer 



SWB Bit Set' 



REREAD 
VCK In 
REREAD 



TS8A Not Correct After REREAD DATA Command' 

WRITE SUBSYSTEM MEMORY Command Not A rceptcd CRAM Read)' 

Reading Long Record Failed To Set RLl Bit In XSTO' 

Reading Long Record Failed To Set RLi Bit In XSTO' 

Resi<^al Byte Count Incorrect After St^ort Record Read' 

Reading Long Record Failed To Give Tape Status Alert 

WRITE DATA RETRY. At First Record, Failed To Set RIB Bit X^T3 

TSSR Not Correct After SPACE RECORDS Command' 

TSSR Hr,\ Correct '^fter WRTTE DATA RETRY. Into BOT' 

TSSR l»ct Correct After WRITE DATA RETRY Command* 

Data Compare Error, Data Read From Tap« Not Equal To Written' 

ASCIZ 'Function Timing' 



iROUTINE TO RESTORt COMMAND PACKET TO START-UP (DEFAULT) VALUES 
iWRITE SUBSYSTEM MEMORY COMMAND 



I - 



T57REST 



SAVREG 

MOV «T57PACKET.R1 

MOV «1000O4,(Rl). 

MOV 0T57DATA,(R1)* 

CLR (RD* 

MOV «10. .CRi;. 

MOV «T37BFP,(R1)4 

CLR (Rl). 

MOW *20, ,(Rn» 



I SAVE THE REGISTERS 

I START Of THE PACKET 

iWRITE SUBSYSTEM MEM. WITH ACK . 

jAODRESS OF CHARAISTICS DATA BLOCK 

;EXTCNOED ADDRESS 

;SIZE OF DATA BLOCK IN BYTES 

; ADDRESS OF MESSAGE BUFFER 

1 LENGTH OF MESSAGE BUFFER 



' i 



TtST 1 HAfiDwAPI rr ;.T l e- TLbl MACRO Ml?00 .'O M'\R-H4 OH;4^ PAGP .^5 1,?0 

Ttbl "^J: KLfNCriUN TIHINb 



10.?.^!.-^ ti4$: 



SFG 021^ 



t>0^.^ 


105454 


0050.-1 




60* K^ 


105456 


OKVll 


oOOOOt ) 


6064 


105462 


012702 


000030 


6065 


105466 


012762 


1 77?;; 


6066 


1054 74 


005 742 




fi06 : 


1054 76 


022702 


000000 


6068 


105502 


001371 




6069 


105504 


000207 




Ho:o 








•^071 


10550*, 






6072 


105506 






6073 


105512 


012701 


102400 


6074 


105516 


012721 


100006 


60 75 


1055.^2 


012721 


10242C 


^0 76 


1055. 6 


005021 




60 7 7 


105550 


012721 


000006 


6078 


105554 


005021 




60 7^ 


105536 


012701 


102420 


6080 


105542 


005021 




6081 


105544 


005011 




6082 


1055-.6 


000207 




6083 


105550 






6084 


105550 






6085 


105554 


012701 


102410 


6086 


105560 


005021 




6087 


105562 


005021 




6088 


105564 


005021 




608^ 


105566 


005011 




6090 


1055 70 


000207 




6091 


105572 
105572 








105572 


104401 




6092 


105574 







T37RT2: 



T37RT3: 



CI R 


CHI )» 




MUV 


•W.tRl ) 


;SFl t.CT ORIVF ^F.RO 


MOV 


«24. ,R2 


jNUMHhR Of- LOCATIONS TO BF CLEARED 


M0\ 


^>177777.T37BFRCP::) 


[ALL ONCS TO MESSAGE BUFFF.P 


TsT 


CR2) 


jNLXT L.OCATION 


CMt' 


*0,R2 


iAT END or LOOP iKT 


HNe 


64$ 


;KLEP GOING UNTIL DONE 


RTS 


PC 


(RETURN 


SAVRt.b 




(SAVE TMt REGISTERS 


MOV 


0T37FK2.R1 


jSTART or THE PACKET 


MOV 


#100006. CR1)» 


;URITE 5LJBSY5TEM MEM. WITH AD^ 


MOV 


<M37BK2.(R1)* 


I ADDRESS OF DATA BLOCK 


Cl.R 


(Rl). 


iEXTENDED ADDRESS 


MOV 


i>6 . , C R 1 ) ♦ 


iSI/E OF DATA BLOCK IN BrTES 


CL.R 


CRD* 




MOV 


0T37BF2.R1 


jPOINT TO DATA SEL AREA 


Cl R 


(Rl)t 




CLR 


(Rl) 




RTS 


PC 


i RE TURN 


SAVREG 




;SAVE REGISTERS 


MOV 


dT37PK3.Rl 


;SET U»> POINTER ADDRESS 


Cl.R 


CRD* 


I COMMAND SPACE 


CLR 


(RD* 


: ADDRESS OF DATA BLOCK 


CLR 


CRD. 


;EXT£NOeD ADDRESS 


CLR 


(Rl) 


tSIZE OF DATA TRANSFER BLOCK 


RTS 


PC 


I RE TURN 


EN0T5T 







L10073: 



ENOMOD 



TRAP 



C$tTST 



TtbT 9: KUNCriON TlMINb 



SEQ O^IE. 



I 

1« 
19 

?^ 

--) / 

^^ 

30 
31 



3? 
33 



34 



35 
36 



37 
38 
39 
40 



105^^/1 
105S74 



105574 
105574 
105576 

105576 
105576 
105600 
105602 
105604 
105606 
105606 
105610 
105612 
105614 

105616 

105616 
105516 
105652 
105676 



000010 



000031 
105616 
160010 

177776 

001031 
105652 
OC.OOO 
00077b 



104 
111 
111 



105 

at 

116 



T5V6: : 



.nut. TSV6 PARAMEThH CODING 



OGNMOD TSV6 



/jBTTl hardwarl parameter coding section 



TMf hardware parameter codim; section contains macro? 

THAT are used Bt THE SUPERVISOR TO BUll P TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS RUT ARE 
INTERP'^FTED BV THE StPERVISOR AS DATA STRUCTURES. THt 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 



L SHARD: : 



BGNHRD 

.WORD L 10075 L$HAR0/a 



L 100/5 
126 HPMl 
124 HPM2 
124 HPM3 



GPRMA 

.WORD 

.WORD 

.WORD 

.WORD 

GPRMA 

.WOPO 

.WORD 

.WORD 

.WORD 

iGPRMO 

ENDHRD 

.EVEN 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



HPMl. 0,0, 1600X0. 177776. YES 

T I CODE 

HPMl 

T$LOLIM 

TIHILIM 

HPM2.2,0,0.776.rES 

TICOOE 

HPM2 

TJLOLIM 

T»HILIM 

HPM3,4.0.340.0.7.yES 



'DEVICE ADDRESS ( fSBA/TSDB) 
• INTERRUPT VECTOR 
'INTERRUPT PRIORITY 



jGET TSBA/TSDB REGISTER ADDRESS. 



iGET VECTOR ADDRESS. 



;GE. INTERRUPT PRIORITY 



TSVh PAIiAMfHP CiHUNl. MACRO MK'-OO t^O-MAR -84 Oi\;AA PAGt-". ,»'/ 
SOFTWARE PARAMtTER COLUNG '..CCTION 



sta 0^16 



4^* 
4,f 








.SbTTl. 


SOFTWARE PARAMETER CwDING SECTION 


44 
4S 








THfc :-iOFTWARb 


PARAMETER COOING SECTION CONTAINS MACROS 


46 








THAT ARE USED 


BY THE SUPERVISOR TO BUIl. D P TABLE-.. THE 


4 " 








MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARl- 


48 








INTERPRETED B> THF SUPERVISOR AS DATA STRUCTURES. THE 


4*.^ 








MACROS ALl OU 


THE SUPERVISOR TO ESTABLISH COMriUNICATIONS 


30 
bl 
b? 10S7c^b 








WITH THE OPERATOR. 








BGNSF T 




10S7Ph 


000003 






.WORD L10076 LJSOf T/2 


10^7-^0 






I iSOFT; ; 




b5> 








GPRMl. 


SPMl.O. - l.^ES J Gh r TRANSPORT TEST FLAG 


54 105750 








GPRML 


SPM4.2. -l.YES J GET ITERATION CONTROL. 


105730 


001150 






.WORD 


T$CODE 


10573? 


105766 






.WORD 


SPM4 


105734 


1777/7 






.WORD 


-1 


35 








GPRMO 


SPM6.4,D, 7777,0. //7,', YES j GET I OCAl ERROR LIMIT 


56 








GPRMO 


SPM7,6.D. 7777.0, 77/7. YES j GET GLOBAL ERROR LIMIT 


57 10^.736 








ENOSF T 
.EVEN 




105736 
53 
59 105736 






I 


10076: 




105 


116 


101 SPMl: .ASCIZ 


'ENABLE TRANSPORT TESTS ' 


60 105766 


HI 


116 


110 SPH4; .ASCIZ 


' INHIBIT ITERATIONS 


bl 106016 


1?0 


105 


12? SPM6: .ASCIZ 


'PER TEST ERROR LIMIT 


t>c> 106046 


120 


105 


122 SPH7: .ASCIZ 


■PER UNIT ERROR LIMIT 


63 

64 








.SBTTL 


PATCH AREA 


65 
66 

67 








FINALLY A GENEROUS PATCH AREA. 


68 








AND AN ADJUSTME.^T TO ACCOUNT FOR THE "LASTAD BIT7" HACK 


6S 

70 








. DESCRIBED IN 


"SUPPRG.MEM" (FOR RtV C). 


''1 

7? 106076 






F 


^r.TCH;: 




7 3 












74 1J6076 

/5 








.BLKW 


3?. 


// 


106400 






, •. !377 


♦ 1 


79 1064C0 








LASTAD 
.EVEN 


(SET LAST USED ADDRESS. 


10*>400 


000000 






.WORD 





10640? 


000000 






.WORD 





106404 






L 


.. * wHj I I I 




«0 106404 








ENOMOD 




til 


000001 






.END 





TSV6 PAF^AMLTLR C^'lNb MACRO :Uc>00 c?0 MAR 64 08:44 PA(,t. ^71 
SYMUOL TABLE 



SEQ Oiil7 



ADDSSR 

ADR 

AMBTSS 

ASSEMB 

A1716 

BADDAT 

BADSSR 

BDVPlR 

BCNBi^W 

BTE 

BITO 

BITOO 

BITOl 

BITO? 

B1T05 

BIT04 

BIT05 

BIT06 

BIT07 

Bi^oe 

KI109 

BITl 

BITIO 

BITU 

B1T12 

BIT15 

BIT14 

BIT15 

BIT? 

BIT5 

BIT4 

BITS 

BIT6 

BIT? 

BITS 

BIT9 

BOE 

BRINIT 

BSELO 

BSELI 

CHKAMB 

CHKMAN 

CHKTSS 

CKDHOP 

CKEMAX 

CKMSG 

CKMSG? 

CKRAM 

CKRAM2 

CMOPKT 

CMPMEM 

CONFIG 

COUNT 

CSRADD 

CTAB 

CTABE 

CTABM 



012?06 
000020 



006713 
000010 
000005 
003150 
015760 
177520 
002222 
040000 
000001 
000001 
000002 G 
000004 G 
000010 
000020 
000040 
000100 
OOOIOO 
000400 
001000 
000002 
002000 
004000 
010000 
020000 
040000 
lOOOOO 
000004 
OOOOIO 
000020 
000040 
OOOIOO 
)00200 
000400 
001000 
000400 
004455 
000000 
000001 
C16124 
020360 
016416 
017262 
017162 
011440 
011560 
011174 
011304 
021340 
017740 
017330 
002302 
002200 
003156 
003170 
003156 



G 
G 
G 
G 

G 
G 



CJAU ^ 

C$AUTO- 

C*BRK 

C^DSEG 

CiRSUB 

OCEFG 

CJCLCK 

CSC'.EA 

CJCLOS 

CSCLPl 

C$CVEC 

C$OCLN 

CiOOOU 

CJORPT 

CJDU 

CtEOIT 

CIERDF 

CJERHR 

C$ERRO 

C$ERSF 

CiERSO 

CSESCA 

CiESEG 

CiESUC 

CIETST 

CJEXIT 

CIGETB 

CiGETW 

CJGMAN 

C*GPHR 

C*GPLO 

C»GPRI 

CilNIT 

C$INLP 

C$MANI 

CIMEM 

OMSG 

C50PEN 

CiFNTB 

C$PNTF 

C$PNTS 

Ci. NTX 

OQIO 

CtPOBU 

cir^eFG 

CIRESE 

CIREVI 

CiHFLA 

C»RPT 

C^SEFG 

CJSPRI 

CJSVEC 

CJTPRI 

DATA 

DATASC 

DEBUGM 

DEVCNT 



000061 
000022 
OOJ004 
000002 
000045 
000062 
000012 
000035 
000006 
000056 
000044 
000051 
000024 
000055 
0OOC03 
000055 
000056 
000060 
000054 
000057 
000010 
000005 
000003 
000001 
000032 
000026 
000027 
000043 
000042 
000030 
C00040 
000011 
000020 
000050 
000031 
000023 
000034 
000014 
000017 
000016 
000015 
0O0377 
000007 
000047 
000033 
000003 
000021 
0OO025 
000046 
000041 
000037 
000013 
002304 
020312 
01W12 
002212 



DEVDRO 

DEVNRD 

DEVNXR 

DEVONL 

DEVSUM 

DFPTBL 

DIAGMC- 

DICED - 

DSBINT 

QUAD 12 

DUFLG 

DUMMY 

EF.CON- 

EF.NEW- 

EF.PWR- 

EF.RES- 

EF.STA- 

EMAXDU 

EN 

ENAINT 

ENVIRN 

EPRTSW 

EPRTl 

EPRT2 

FRCM 

ERRHI 

ERRK 

ERRLO 

ERRNO - 

ERRVEC- 

ERTASr 

ERTABl. 

ESUM 

EVL 

EXBCNT- 

EXPBRE 

EXPO 

EXPGOT 

EXPGT2 

EXPMSG 

EXPREC 

EXTA 

EXTEND 

EXTFEA 

EtENO - 

EILOAD- 

FATERR- 

FATFLG 

FERCH 

FIFEXP 

FIFIMS 

FIF2M5 

FILLME 

FNOINT 

FORCER 

FREE 

FREEHI 



023504 
025423 
025541 
025271 
025254 
002150 
000000 
000001 
016264 
004657 
005104 
003054 
000056 
000035 
000054 
000037 
000040 
917057 
000000 
016232 
020710 
002172 
006354 
006413 
012015 
002230 
017036 
002232 
001620 
000004 
003370 
005170 
017C40 
00000^ 
OuOOlO 
015562 
002224 
004527 
004563 
002314 
015554 
005766 
005764 
002220 
002100 
000035 
000060 
002214 
012002 
012250 
012522 
012571 
017502 
004211 
002170 
005116 
003122 



G 



hRtSI/ 

FUSI 

F$AU 

fJAUTO 

FiBGN 

F$CLEA 

FJDU 

F$tND 

FJHARD 

F $HW 

F$INIT 

F$JMP 

F$MOD 

F$MSG 

F$F,^0T 

FIPwK 

F$RPT 

F$SEC 

FJSOFT 

FISRV 

F$SUB 

FtSU 

F$TEST 

GOO AT 

GERRMA 

GETPAT 

CETSEL 

G»CNTO 

G«DELM 

G$DISP 

GIEXCP 

GtHILI 

GHOLI 

GINO 

GtOFFS 

GIOFSI 

GJPRMA 

GIPRHO 

GtPRML 

GSRADA 

GIRAOe 

GtRAOD 

GtRADL 

GIRADO 

G$XFER 

GIYES 

HIADDR 

HOE 

HPMl 

HPM2 

HPM3 

IBE 

lOU 

IlR 

IFAULT 

•^NCERK 

INTCPC 



003120 
004113 
000015 
000020 
000040 
00000 / 
000016 
000041 
000004 
000013 
000006 
000050 
000000 
000011 
000021 
000017 
000O12 
000003 
000005 
000010 
000002 
000014 
000001 
003152 
002166 
020254 
020356 
000200 
000372 
000005 
000400 
000002 
000001 
000000 
000400 
000376 
000001 
000002 
000000 
000140 
000000 
000040 
000120 
000020 
000004 
000010 
001400 
100000 
105616 
105652 
105676 
OlOOOO 
000040 
020000 
004252 
017124 
C16230 



G 



G 
G 
G 



INTFi.A 

INTM.tS 

INTH 

INTREC 

INTVEC 

INTX 

INVERT 

lOKCKI 

lOKSTP 

IPRI 

ISR 

IVEC 

IXE 

I$AU 

I $ AUTO 

I$CLN 

I*DU 

I$HRD 

I*INIT 

I$MOO 

1 iMSG 

I*PR0T 

ISPTAB 

liPWR 

IIRPT 

I$SEG 

liSETU 

liSFT 

liSRV 

ItSUB 

I$TST 

J$JMP 

KIPARO 

KIPARl 

KIPAR2 

KIPAR3 

KIPAR4 

K I PARS 

KIPAR6 

KIPAR7 

KIPDRO 

KIPDRl 

KIPDR2 

KIPDR3 

KIPDR4 

KIP0R5 

KIP0R6 

KIP0R7 

KTENAB 

KTFLG 

KTINIT 

KTOFF 

KTON 

l.ERRMA 

LISTAL- 

LOE 

LOOPCN 



016225 
016224 
016276 
002216 
016226 
0042 74 
021266 
000200 
000001 
002204 
000100 



002202 G 

004000 G 

00004 1 

00004 1 

000041 

000041 

000O4 1 

000041 

000041 

000041 

000040 

00004 1 

000041 

000041 

000041 

000041 

000041 

000041 

000041 

000041 

000167 

1725-»0 

172342 

172344 

172546 

172550 

172352 

172554 

172556 

172300 

172302 

172304 

172506 

172310 

172312 

172314 

172516 

003126 G 

005124 G 

021154 

0.1 7554 

017536 

002164 G 

000001 

040000 G 

0022X0 G 
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SEQ Oi^ie 



I OOPCO 

LOOPKL 

LOT 

L$ACP 

L$APT 

L$AU 

LJAUT 

L*Auro 

L$CCP 

L$ClEA 

L$CU 

LiDEPO 

L$DESC 

LtUESP 

LJDEVP 

LJOISP 

LSOLY 

L$DTP 

L$DTYP 

LiDU 

L*OUT 

L$DVTY 

LiEF 

L$ENVI 

LvETP 

L$EXP1 

L*EXP4 

L$EXP5 

LJHARD 

LSHIME 

L iHPCP 

LiHPTP 

L $HW 

LJICP 

L$INIT 

L$LADP 

L$LAST 

L$LOAD 

L$LUM 

LJMREV 

L$NAME 

LiPRlO 

LiPROT 

L$PRT 

LIREPP 

L»REV 

L$RPT 

LJSOTT 

L*SPC 

LiSPCP 

LtSPTP 

L»STA 

Lt3W 

L$TEST 

LiTIML 

L*UMT 

L 10000 



013?06 

005154 G 

000010 G 

002110 G 

002036 G 

022460 G 

002070 G 

022664 G 

002106 

022744 

002032 

002011 

003402 

002076 

002060 

002124 

002116 

0020 10 

•^02034 

022556 

002072 

005374 

002052 

002044 

002102 

002046 

002064 

002066 

105576 

00? 1^0 

002016 

002022 

002150 

002104 

021636 

002026 

106404 

002100 

002074 

002050 

002000 

002042 

021626 

002112 

002062 

002010 

022772 G 

105730 G 

002056 

002020 

002024 

002030 

002100 

002114 

002014 

002012 

002156 



L 10001 
L. 10002 
L 10003 
L 10004 
L 10005 
L 10006 
L 10007 
LlOOlO 
LlOOll 
L10012 
L10015 
L10014 
L^0015 
L10016 
L10017 
L 10020 
L10021 
L 10022 
L 10023 
L 10024 
L 10025 
LI 0026 
L 10030 
L 10031 
L 10032 
L10033 
L10034 
L 10035 
L10036 
L10037 
L10040 
L 10041 
L10O42 
L10043 
L10044 
L10045 
L10046 
L10047 
L 10050 
L10051 
L 10052 
L10053 
L100S4 
L 10055 
L 10056 
L 10057 
L10060 
L10061 
L 10062 
L10063 
L 10064 
L10065 
LI 0066 
I 10067 
L10070 
L10071 
LI 0072 



003170 
00^762 
012124 
012142 
012160 
012166 
012204 
01^222 
012246 
012320 
012470 
013204 
014032 
014054 
015560 
015566 
015574 
01560<'. 
015630 
015656 
016016 
016326 
022410 
022554 
022662 
022742 
022770 
023232 
032362 
024216 
024 740 
025464 
026306 
041460 
033764 
035410 
056004 
056470 
047016 
042352 
043164 
053074 
047572 
050502 
051316 
056070 
054536 
065442 
060526 
075372 
064534 
065614 
066456 
067360 
101146 
074466 
075550 



L 100/3 

L 100 74 

L 10075 

L 100 7b 

MEMADD 

MEHCK 

liENASC 

MENERR 

MENRE5 

MMVEC - 

MSA.FR- 

MSA.NO' 

MSA.NR* 

MSA.VO- 

MSGEXP 

MSGLOO 

MSGSTA 

MSGSie 

MS. ATT- 

MS.EXT- 

MS.RSO- 

MS.RSF* 

MS.RST- 

rfll86 

M8189 

NBA 

NEWPAS 

NOCEV 

NOINIT 

NOINTR 

NOTTS 

NOMAfJ 

NOMEM 

NP.IR • 

NP.LOO- 

NP.OUT- 

NP.WRP- 

NSI 

NSINIT 

NUL 

NULCR 

NXM 

NXMFLG 

NXMHI 

NXMLO 

KXMTST 

NXR 

NXRERR 

NXRX 

NXTU 

OFL 

ONEFIL- 

OIAPTS- 

0$AU - 

OIBGKR- 

OiBGNS- 

0$DU - 



1055 72 
102232 
105616 
10575t) 
014034 
021356 
020527 
020454 
020556 
000250 
000006 
000000 
000004 
000002 
012224 
013144 
012430 
014022 
000006 
000200 
000001 
000020 
000010 
005550 
005641 
002000 
022116 
005106 
004331 
004215 
002162 
020614 
005454 
000200 
000040 
000100 
000020 
004146 
004405 
004523 
004524 
004000 
003130 
003154 
003132 
021532 
005754 
005752 
005773 
052150 
000100 
000000 
000000 
000001 
COOOOl 
000001 
000001 



0$ERRT« 

0JGN5W- 

OiPOIN* 

OJSETU- 

PASRPT 

PATCH 

PATDAT 

PC. ERA- 



PC 
PC 
PC 
PC 



lER' 

NOO- 

;-*EL ■ 

REW- 
PKBCNT- 
PKHI - 
PKLOU ■ 
PKTADD 
PKTFRM 
PKTGE"^ 
PKTMES 
PKTRAH 
PKTSSR 
PNT 

PRAMPK 
PRASC 
PRBEXP 
PRBM5G 
PRBREC 
PR6T0T 
PRBYTE 
PRI 

PRIAOO 
PRIAO 
PRIBXU 
PRIEQU 
PRIPKT 
PRIRAM 
PRI TAD 
PRITSS 
PRITO 
PRITl 
PRXXOR 
PRIOO 
PRIOl 
PR 102 
PRI03 
PRI04 
PRI05 
PRI06 
PRI07 
PRMESS 
PRMNO 
PRMSGE 
PRMSGO 
PRMSGl 
PRMSG2 
PROASC 
PRIASC 



000000 

000001 

00000 I 

000000 

022162 

106076 G 

020310 

002400 

002000 

001000 

000000 

000400 

000006 

000004 

000002 

007632 

007574 

012144 

012170 

004741 

012126 

001000 

014056 

014603 

015550 

015416 

015552 

015505 

015202 

002000 

010236 

010306 

007670 

010136 

007446 

010144 

010352 

006020 

010454 

010477 

010020 

000000 

000040 

000100 

000140 

000200 

000240 

000300 

000540 

014522 

002312 

014652 

015012 

015057 

015115 

014500 

014545 



PST32W 

PUNir 

PW.D11= 

PU.D13 

PW.D22 

PW.NOP 

PW.NOl 

PW.RDE 

PW.RDR 

PW.RDS 

PW.RFI 

PU.UCT 

PW.WFI 

PW.WFM 

PU.WMI 

PW.WNP 

PU.UTR 

P.ACK 

P. CMC 

P.CONT 

P.CVC 

P. KMT 

P. FORM 

P. GETS 

P. IE 

P.INIT 

P. MODE 

P.OPP 

P.P05I 

P. RE AD 

P.SWB 

P.URir 

P.'JRTC 

P.WRTS 

QVP 

RAMASC 

RAMOAT 

RAMERR 

RAMEXP 

RAMFOR 

RAMSIZ 

RAMTAO 

RCVHIA 

RCVLOA 

RDERR 

RECMSG 

RECV 

REGSAV 

RETERR 

REWIND 

RMCHBE 

RMCHEN 

RflMSGB 

RMMSGE 

RMPKTB 

RMPKTt 



003144 
02241^ 

ooooiei 

000022 
000020 
000000 
000023 
000024 
000001 
000005 
000003 
000006 
000004 
000007 
000010 
000011 
000002 
100000 
000057 
000012 
040000 
000140 
000011 
000017 
000200 
000013 
007400 
020000 
000010 
000001 
010000 
000005 
000004 
OOOOOti 
002176 
014236 
002234 
015570 
015610 
010174 
002274 
015576 
002276 
002500 
005202 
002460 
002226 
020220 
005566 
011074 
00016 7 
000200 
000215 
000254 
000201 
000210 
OlOOOO 
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SYMBOL TABLE 



I i 



btQ 0i;i9 



RWPACK 

SC 

SCE 

SCHERR 

SCME 

SDEl AY 

SELASC 

SELOAT 

SELr? 

SETMAP 

5ETU 

SEFMSG 

SFHERR 

SriERR 

SF TMSG 

SFPTBL 

SIFLAG 

SIMSG 

SKIPT 

SOFINI 

SPACE 

SPMl 

SPM4 

SPM6 

SPM7 

SRO 

SRI 

SR2 

SR5 

5SR 

STATCO 

SVCGBL 

SVCINS 

SVCSUB 

SVCTAG 

SVC"^ST 

S$LSYM 

SO . IDB 

SO.IFB 

SO.IFP 

SO.ILD 

SO. ION 

SO. IRQ 

SO. TRW 

SO. ISP 



51 
SI 
SI 
SI 
SI 
Si 
SI 
SI 



ICE 
lEO 
IFM 
THE 

no 

IIR 
I2h 
PAR 



52. ATI 
S2.BTI 
S2.DIM 
S2 . ILW 



011170 
100000 
020000 
005274 
005007 
010740 
020522 
000004 
000002 
01737'i, 
022214 
012162 
003701 
003646 
012114 
002160 
003146 
012046 
003372 
016054 
010544 
105736 
105766 
106016 
106046 
177572 
177574 
177576 
172516 
000200 
012472 
000000 
000000 
000001 
000000 
i>:/0001 
010000 
000010 
000002 
000001 
000020 
000040 
000100 
000004 
000200 
002000 
010000 
001000 
000400 
004000 
030000 
040000 
100000 
000010 
000004 
000200 
000100 



S2.INR« 

S2.0UT* 

S2.UND» 

TBLENO- 

TCUASC 

TCOCOO 

TEMPI 

TEMP2 

TERCLS- 

TESTNO- 

TEXASC 

TFCASC 

TIMEXP 

TIMSGO 

TINERR 

TMPBFR 

TNAM 

TRANST 

TSBA - 

TSBAH • 

TSDB - 

TSDBH - 

TSFCOD 

TSRFJ ■ 

TSSOEF 

TSSR ■ 

TSSRBI 

TSSRFO 

TSSRH - 

TSSX 

TSTBLK 

TSTCNT 

TSTEND 

TSTFLA 

TSTLOO 

TSTPTR 

TSTSET 

TST29I 

TST30I 

TST31I 

T5T32I 

TST33I 

TSr34I 

TST35I 

TST36I 

TST37I 

TSV2 

TSV3 

TSV4 

TSV6 

TSV7B 

TTIBFR- 

TTICSR' 

TFIVEC- 

TJARGC- 

"I JCOOt- 

T»ERRN« 



000020 
000040 
000003 
OD3054 
^■)6554 
J06754 
003110 
C03112 
000016 
0000 U 
0C6513 
006615 
015632 
015660 
012101 
002624 
016764 
002160 
OOOOOO 
000001 
OOOOOO 
000001 
007314 
000006 
006664 
000002 
003476 
006473 
000003 
004014 
002744 
002206 
017000 
002306 
016536 
002310 
016570 
032147 
041261 
046573 
052670 
055675 
063237 
073163 
100747 
105373 
002000 
002170 
021626 
105574 
02351^4 
17 7562 
177560 
000060 
000003 
001150 
001620 



G 



T$EXCP' 


OOOOOO 


TU'L.'.G- 


000040 


TSGMAN- 


OOOOOO 


TJHILI^ 


0007/6 


T$LAST' 


000001 


T$LOLI 


OOOOOO 


TiLSYM' 


010000 


T$LrNO' 


000011 


TiNEST* 


• 177777 


T$N50 ' 


OOOOOO 


T$NS1 ■ 


000005 


T$NS2 ' 


000002 


TJPTNU- 


■ OoOOOO 


T$SAVL 


• 177777 


TJSEGL' 


177777 


TJSUBN' 


■ 000001 


TJTAGL' 


■ 177777 


TSTAGN- 


' 010077 


TUEMP- 


■ OOOOOO 


TJTEST- 


• 000011 


TJTSTM- 


■ 177777 


T$TST5' 


■ 000001 


T$$AU ' 


■ 010031 


TliAUT- 


■ 010033 


T$$CLE' 


■ 010054 


T$$DU ■ 


• 010032 


T$$HAR 


■ 010075 


T$$HW ■ 


■ 010000 


T$aNI' 


• 010030 


T»IMSG^ 


• 010025 


T$$PRO' 


• 010027 


TitRPT- 


' 010035 


T$$SOF 


• 03 0076 


TUSRV 


" 010026 


T»$5UB 


• 010074 


TMSW 


' 010001 


TMTE5" 


« 010073 


Tl 


023554 G 


Tl.l 


023604 


T1.2 


024234 


T1.3 


024 756 


T1.4 


025502 


T2 


032364 G 


T2.1 


032410 


T2.2 


034002 


T2.3 


035426 


T2.4 


036022 


T23A 


003136 G 


T23B 


003140 G 


T29AM5 


030457 


T29eA 


031074 


T29eFR 


026372 


T29eF2 


026500 


T2960T 


030026 


T29BS0 


026500 


T29BS1 


026501 


T29CNT 


026524 



r29C0N 


026512 


T290AT 


026360 


T290Ly 


026530 


T29DSW 


026370 


T29DTA 


030073 


129E0T 


030161 


T29L0N 


031255 


T29L00 


023604 


T29L0P 


031337 


T29L0a 


027456 


T29L0R 


027331 


T29NEF 


026660 


T29NEQ 


031575 


T290FL 


026532 


T290F7 


030545 


T29PAC 


026350 


T29PBP 


031421 


T29PK2 


026460 


T29PK3 


0264 70 


T29RB 


0264 72 


T29RDF 


026750 


T29R0G 


031673 


T29RE5 


032176 


T29RIB 


031754 


T29RN 


026506 


T29flNC 


030404 


T29RRF 


027017 


T29RRG 


02:*133 


T29RRN 


032054 


T29RSZ 


026526 


T29R:2 


032270 


T29RT3 


032332 


T29RUi' 


030335 


T29SC 


027247 


T29SSR 


027537 


T29S/ 


0264 76 


T29S2 


026502 


T29S' 


026504 


T29Tr1 


030257 


T^.fRL 


031507 


129VCK 


031021 


T29W6 


0264 72 


T29W0C 


030727 


T29g00 


030620 


T29W0E 


027612 


T29W0F 


027401 


T29WDR 


026510 


T29WLK 


027674 


T29WNG 


026553 


T29URT 


027761 


T29USS 


031166 


T3 


041462 G 


T5BFLG 


003142 G 


T3.1 


041512 


T3.2 


042370 


T30BFR 


036552 


T30BF2 


036660 



T50B0r 

I 3 OB so 

T30B51 

T30CNT 

T30CNU 

TiODAT 

TiODLY 

T30DSU 

T300TA 

T30DTR 

T50ETM 

T30FCN 

T30IBT 

T301BU 

T30IMV 

T30L00 

T30L0Q 

T30NEF 

T300FL 

T30PAC 

T30PK2 

T30PK3 

T30PTB 

T30RB 

T30RDF 

T30RDG 

T30RES 

T30RIB 

T30RN 

T30RRM 

T30RRN 

T30RRP 

T30RT2 

T30RT3 

T30RWN 

T30SKM 

T30SSR 

T30SZ 

T30S2 

T30S3 

T30TM 

T30TMK 

T30TM2 

T30TP& 

T30VCK 

T30WB 

T30U0C 

T3OWO0 

T30W0E 

T30WOF 

T31AM3 

T31BA 

T31BFR 

T31BF2 

T31B0T 

T31B50 

T31BS1 



040071 
036660 
036661 
036700 
036702 
036540 
036706 
036550 
041164 
041120 
036546 
036704 
037061 
036710 
036666 
032410 
037660 
040626 
040337 
036530 
036640 
036650 
037272 
03665P 
037443 
037521 
041302 
036775 
036666 
040705 
040763 
O4104,? 
041374 
041436 
040270 
037144 
037741 
036656 
036662 
036664 
040136 
040544 
040213 
037363 
0404 71 
036652 
040412 
037220 
040012 
037603 
045046 
045406 
043242 
O43350 
0443 75 
043350 
043351 



h 



■\.[. 
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btO 02^0 



T31CNT 

T31CNU 

T31C0N 

T31DAT 

T31DI 1 

T31DSW 

TJIDTA 

T31F0T 

T31L0N 

T31t_00 

T3VL0P 

T31L0Q 

T31L0R 

T31NKF 

T310KI 

T31PAC 

T31PBP 

T31PK2 

T31PK3 

T31RB 

T31RDE 

T31RDK 

1" 3 IRES 

T31RN 

T31RNC 

T31RRF 

T31RT? 

T31RT3 

T31RUN 

T31SC 

. 31SCF 

131SSR 

T31SZ 

T3152 

T31S3 

T31TIH 

T31TH 

T31TRL 

T31TSA 

T31VCK 

T31WC 

T31W0C 

T51WD0 

T31W0E 

T31UDF 

T31JDR 

T31'VNG 

T31UNH 

T51WRF 

T31USS 

T32AM3 

■. 32BA 

T72RFR 

1 32B0T 
T3PCMD 
T32CNT 



043366 
043370 
043562 
043230 
045572 
043240 
0464 76 
044570 
045350 
041512 
045632 
044146 
04^021 
046070 
045115 
043220 
045714 
04 3330 
04o340 
043342 
043374 
043573 
046640 
04:^356 
04^773 
04 3642 
046732 
0467/4 
04472+ 
043737 
046211 
C44227 
043546 
043552 
043354 
0444 70 
04464 7 
046002 
046266 
045333 
043342 
045260 
045170 
044263 
044071 
043360 
043521 
04 3440 
046373 
045461 
05ir/7 
052115 
051402 
052416 
051546 
051510 
05154C 



T52CNi.' 

T32DAT 

T32DLY 

T320SW 

T32ECF 

T32E0T 

T32::ra 

T32LU0 

T32UPI 

T52PAC 

T32PK2 

T32PK5 

T32RB 

T32RES 

T52RIB 

T32RT2 

T32RT3 

T32RWN 

T32SCE 

T32SZ 

T32TSA 

T52W6 

T32W0C 

T33BFR 

T55Br2 

T55B0T 

T35BS0 

T33BS1 

T33CNT 

T33CNU 

T33C0N 

1530AT 

T33DLY 

T330SW 

T55DTA 

T33L00 

T33PAC 

T53PK2 

T53PK3 

T33RB 

T33RBP 

T33RES 

T33RN 

T33RT2 

T33RT3 

T53RWN 

•^SSSSR 

1^3SZ 

T33S2 

T33S3 

T53UNC 

T33UNO 

T33WB 

T33UDC 

T53WDR 

T33WPW 

T34AM3 



C"a54. 

0513/0 

051544 

051400 

052505 

051641 

052046 

04 7050 

052653 

051560 

0514/0 

051500 

051502 

052730 

052166 

053022 

053052 

051730 

052264 

051506 

052341 

051502 

052566 

054622 

054 730 

055355 

054750 

054 731 

054746 

054 750 

054 742 

054610 

054752 

054620 

055600 

053ir6 

054600 

054710 

054720 

054722 

054 754 

055712 

054756 

056004 

056046 

055450 

055271 

054726 

0C4732 

054734 

055112 

055202 

054722 

05551/ 

054740 

055052 

067511 



T54BA 

T340^R 

T34BK2 

T34Bar 

T;4B50 

"i 4asi 

1-'4CNT 

T34CON 

T34DAT 

T34UL 1 

T34DSW 

T34E0T 

T54ET 

T54ETC 

T54ETN 

T:i4ET0 

t:*4ET5 
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